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% 



% 



MODULE 'EVMTR'J 

TITLE '4016 EVALUATION 

CONST PR0M_ID = #A1B1: 

PAGE 41 

CONST CPT=0FE6E 

CONST SPT=0FECH 

CONST PPT=0FF0B 

CONST LPT=0FB3E 

CONST KPI=0FE0H 

CONST £PQ=0]JTCfi 

CONST STP=0FD8E 

CONST BKP=0FD4H 

CONST TPT=0FE4E 

CONST ThDl=76E 

CONST TMD2=0B6H 

CONST RT95=13 

CONST RT24=52 

CONST RT11=1136 

CONST CR=0BH 

CONST LF-0AE 

CONST ESC=1BE 

CONST DEL^7FH 

CONST CAN=1SH 

CONST BSP-08E 

CONST ACK=06H 

CONST NAK=15E 

CONST ENQ=05E 

CONST 5OH=01H 

CONST STX=02H 

CONST EOT=04E 

CONST USERP=1000E 

CONST DATA=4000H 

CONST SMD£=0CEB 

CONST SCMD=2?H 

CONST PhDE=83E 

CONST SYMDE=4000H 



BOARD MONITOR VI. 1 '5 

% PROM ID - IN LAST BYTE OF TWO PROMS 



%CONSO 
%SERIA 
£PAEAL 
%LED D 
£KEYB0 



LE PORT 
L UP/DO* 
LEL UP/D 
ISPLAY ? 
ARD PORT 






%STF? 

% BREAK 

gTIMER 

&TIMER 

%TIMER 

£TIMER 

%TIMER 

*(PTMPD 
fOX J. I I tiJl 

£TIMER 



CONTROL 
POINT RE 
PORT 

1 MODE 

2 MODE 
RATE FO 
RATE FO 

d a m en T"\ 
n n. j. d £ o 

RATE FO 



N PORT 
OWN PORT 
ORT(BASF) 
(INPUT) 

I nTTTDTTT ^ 

\ V V.' J. X \J *. f 

PORT 
GISTER 



R 9600 
R 2400 
R 300 
R 110 



^CARRIAGE RETURN 

£LINE FEED 

%ESCAPE 

%CHARACTER DELETE 

%LINE CANCEL 

^BACKSPACE 

^ACKNOWLEDGE 

£NOT ACKNOWLEDGE 

^ENQUIRY 

£START OF HEADER 

%START OF TEXT 

%END OF TRANSMISSION 



% 



CONST CRTSW=0 



J^USER PROM ADDRESS (ASSEMBLER) 

UDATA STORAGE AREA 

:fcSERIAL PORT MODE 

;%SERIAL PORT COMMAND 

;%PARALLFL PORT MODE 

;%SYSTEM MODE FLAG CONTROL WORD 

;%SET IF LED/KBD AVAILABLE LOCALLY 
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0000 






0000 






0000 


0000 




0002 


4 £00 




0004 


01A2 




0006 






0006 






0006 






0006 






0006 






0006 






0006 


2020 


2020 


000A 


5676 


1600 


000E 


3A2A 


0000 


0012 


4666 


0600 


0016 


5B5B 


IBID 


001A 


5272 


1200 


001E 


0000 


0000 



% 
MACRO 



% 



% 
% 
% 
% 
% 
% 
CflTAB 



CONST CNOSV=l 

CONST RM0SW=3 

CONST TRMDE=5 

CONST ST?FLG=6 

CONST M3=7 

CONST M4-2FH 

CONST M5=1FH 

CONST M7=7FE 

CONST M3=0FFH 

CONST MU4=0F000H 

CONST MUS=0FI00H 

CONST MU12=0FFF0H 

CONST MU13=0FFF6H 

CONST KU15=0FFFEE 



LDA EST, SRC J 

BEGIN 

WORE: 

041)35, % LL DA t IM 
TST, % LA 
SRC: % IM 

enl; 



;^l=LOCAL CONSOLE OUTPUT, 2=REM0TE 
;^l=REMOTE OUTPUT PARALLEL, 2=SERIAL 
J&SET IF STEP MODE PERMITTED 
:%SET IF IN STEP MODE 

^VARIOUS MASKS 



WORD: 
WORD: 
WORD: 





SYMDE 

INIT 



CHARACTER IS 



BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 



3 SHIFT 

4 CONTROL 
5-7 INPUT 

;% SPACE 
56H,76E,16R,0 \% V 
3AH,2AH,0,2 ;% :* 

46E,66H,06h,0 ;% F 
5BE,5DH,lBH,lDh ;% [] 
52E,72H,12H,0 ',% K 
0,0,0,0 ;% BREAK 
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0022 


3626 


0000 


0026 


2E3F 


0000 


002A 


4363 


0300 


002E 


3B2B 


0000 


0032 


4464 


0400 


0036 


5070 


1000 


003A 


4565 


0500 


003E 


4060 


0000 


0042 


3525 


0000 


0046 


2E3E 


0000 


004A 


5878 


1800 


004E 


4C6C 


0C00 


0052 


5373 


1300 


0056 


4E6F 


0F00 


005A 


5777 


1700 


005E 


2L3I5 


0000 


0062 


3424 


0000 


0066 


2C3C 


0000 


006A 


5A7A 


1A00 


006E 


4B6B 


0B00 


0072 


4161 


0100 


0076 


4969 


0900 


007A 


5171 


1100 


007E 


3000 


0000 


0082 


3323 


0000 


0086 


4I6D 


0E00 


008A 


0000 


0000 


008E 


4A6A 


0A00 


0092 


0000 


0000 


0096 


5575 


1500 


009A 


0000 


0000 


009E 


3929 


0000 


00A2 


3222 


0000 


00A6 


4E6E 


0E00 


00AA 


0I0B 


0D0D 


00AE 


4868 


0800 


00B2 


0A0A 


0A0A 


00B6 


5979 


1900 


00BA 


0909 


0909 


00EE 


3323 


0000 


00C2 


3121 


0000 



BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 



: 36H 


,26E, 


: 2 EH 


,3FH, 


: 43H 


,63E, 


: 3BB 


,2BE, 


: 44H 


,64K, 


: 50H 


,70E, 


: 453 


,65H, 


: 40H 


,60H, 


: 35H 


>25E, 


: 2Ed 


,3EH, 


: 58H 


,78H, 


: 4CH 


,6CE, 


: 53B 


,73H, 


: 4FH 


,6FE, 


: 57E, 


77E, 


: 2DtI 


,3BH, 


: 34H, 


24H, 


: 2CE, 


3CH, 


: 5A3 , 


,7AS, 


: 4BH 


6BE, 


: 41E, 


61E, 


: 49S, 


69H, 


: 51B, 


71E, 


: 30H, 


0,0, 


: 333 , 


23H, 


: 4LH, 


6LE, 


: 0,0, 


0,0 


: 4AH, 


6AE, 


: 0,0, 


0,0 


: 55fi, 


75E, 


: 0,0, 


0,0 


: 39E, 


29E, 


: 32H, 


22E, 


: 4EH, 


6EE, 


: 0DH , 


0IE, 


: 48K , 


68H, 


: 0ArI, 


0AE, 


: 59H, 


79E, 


: 09E, 


09E, 


: 33H, 


23H, 


: 31H, 


21 E, 



0,0 


;% 


6& 


0,0 


f% 


/? 


03E,0 


\% 


C 


0,0 


;% 


; + 


04H,0 


f% 


L 


10F,0 


;% 


P 


05E,0 


;% 


E 


0,0 


;% 


<T 


0,0 


\% 


5% 


0,0 


\% 


.> 


18E,0 


a 


X 


0CF,0 


% 


L 


13H,0 


\% 


S 


0FH,0 


» 0/ 





17E,0 


\% 


V 


0,0 


\% 


-=r 


0,0 


\% 


4$ 


0,0 


% 


,< 


1AH,0 


% 


Z 


0BH,0 




K 


01E,0 


\% 


A 


09H,0 


\% 


I 


11H,0 


\% 


Q 


; 


% 





0,0 


'% 


3# 


0LE,0 


\% 


M 




% 


NO KEY 


0AH,0 


'% 


J 




/o 


NO KEY 


15E,0 ; 


% 


D 




% 


LOCK 


0,0 J 


I 


9 1 


0,0 ; 


% 


2 


0EH,0 ; 


% 


N 


0LK,0LE ; 


% 


CARRIAGE RETURN 


08E,0 ; 


% 


H 


0AH,0AH ; 


% 


LINE FEED 


19H,0 ; 


% 


Y 


09E,09B J 


% 


TAB 


0,0 ; 


% 


3( 


0,0 ; 


% 


1! 
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00C6 
00CA 
00CE 
00D2 
00D6 
00 LA 
00DE 
00E2 
00E6 
00E6 
00EC 
0012 
00F6 
00FC 
0102 
0104 
0104 
0104 
0104 
0106 
010S 
010A 
010C 
010E 
0110 
0112 
0114 
0116 
0113 
0118 
011E 
0124 
012A 
012A 
012C 
012E 
0130 
0132 
0134 
0136 
0138 



4262 
0000 
476? 
5F5E 
5474 
087F 
3727 
1B1B 



0200 
0000 
0700 
1F1E 
1400 
087F 
0000 
1B1B 



4D49 5353 494E 
4720 4649 4C45 
204F 5220 
4449 534E 2049 
2F4F 2045 5252 
0L0A 



4000 
0728 
4000 
0728 
4000 
077E 
4000 
0723 
4000 
0738 

4243 4445 4647 
48415 4E50 5253 
5456 535A 0D00 

02DE 
032E 
0354 
0320 
03E6 
065C 
0410 
0416 



% 
MISER: 



BYTE: 42E,62E,02E,0 ;% B 

BYTE: 0,0,0,0 ;% NO KEY 

BYTE: 47H,67H,07H,0 ;% G 

BYTE: 5FH,5EH,1FE,1EB ;% _~ 

BYTE: 54H,74H,14H,0 ;% T 

BYTE: 03E,7FE,08K,?FE ;% BACKSPACE/DELETE 

BYTE: 37H,27E,0,0 ;% 7' 

BYTE: 1BE,1BH,1BH,1BH ;%ESCAPE 

BYTE: 'MISSING FILE OR ' J 



DSKER: BYTE: 'DISK I/O ERR',CR,LF 





CONST 


MISERL=$-MISER 




CONST 


DSKERL=i-BSKEK 


% 






STAREA: 


WORE: 


SYMDE 




WORD: 


USERR 




WORD: 


SYMDE 




WORD: 


USERR 




WORD: 


SYMDE 




WORD: 


SYSCAL 




WORD: 


SYMDE 




WORD: 


USERR 




WORD: 


SYMDE ^m^L t 




WORD: 


STPRTN.; A/^-T " 


% 




<_• 


CMDLST: 


BYTE: 


'BCDEFGHMNPRST 




ORIGIN 


$(LOW $ AND 1) 


CMDADD: 


WORD: 


SETBRX 




WORD: 


SETCRY 




WORD: 


SETDAJ 




WORD: 


EXBRK 




WORD: 


FILMEM 




WORD: 


XECTE 




WORD: 


SETELF 




WORD: 


MOVE 



^SYSTEM CALL 



^NON-MASKABLE INTERRUPT(STEP CONTROL) 



;%SET BREAKPOINTS AND GO 

;%SET CARRY FLAG 

J&SET DECIMAL ADJUST FLAG OR DISPLAY MEMORY 

;%SET HARDWARE BREAKPOINT 

;%FILL MEMORY 

;%GO TO PC OR SPECIFIED ADDRESS 

;%SFT EALF CARRY FLAG 

:%MOVE MEMORY 
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013A 

013C 

013E 

0140 

0142 

0144 

0146 

0148 

014A 

014C 

014C 

0150 

0153 

0159 

015C 

015F 

0162 

0165 

016B 

0171 

0175 

0175 

017B 

0181 

0135 

0185 

018B 

0191 

0194 

0194 

019A 

01A0 

01A1 

01A1 

01A1 

01A2 

01A6 

01A8 

01AC 

01AE 

01B2 



454 
0460 
0480 
04EA 
055S 
05B2 
05BA 
0654 
0770 

204E 493D 

0820 08 

435A 5350 4443 

5043 3D 

230D 0A 

2A0D 0A 

3E0D 0A 

4C4E 4144 2043 

4E4D 504C 4554 

4544 0D0A 

5341 5645 2043 
4F4D 504C 4554 
4544 0D0A 

5052 4E47 5241 
4D20 4552 5241 
520D 0A 

5052 4F47 5241 
4D20 4553 4954 
20 



2100 BC00 
7D0B 

7600 0100 
7D0D 

2100 0076 
3B06 0FE7 



% 

NIMS: 

B.SPMS 

rllLS 

PCMS: 
CNMSG 
PRMSG 
ERMSG 
LODCM 



DMSG: 
USERM 
USEXT 

% 
INIT: 



WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 

BYTE: 
BYTE: 
BYTE: 
BYTE: 
BYTE: 
BYTE: 
BYTE: 
BYTE: 



CONST 
BYTE: 



CONST 
BYTE: 



CONST 
BYTE: 



UMODE 

SETPAR 

SETREG 

SET5GN 

TRACE 

SETOVF 

DISREG 

SETZRO 

STEP 



%SET USER NORMAL MODE 

£SST PARITY FLAG OR PC ADDRESS 

%SET REGISTER CONTENT 

%SET SIGN FLAG OR SUBSTITUTE MEMORY 

^EXECUTE WITH TRACK 

£SET OVERFLOW FLAG 

^DISPLAY REGISTERS 

%SET ZERO FLAG 

^EXECUTE STEP MODE 



' NI=' 

BSP,' ',BSP 

'CZSPDE' 

'PC=' 

'#',CK,LF 

'*' t CR f LF 

'?',CR,LF 

'LOAD COMPLETED', CR,LF 



LOBCML=$-IODCM ? 

'SAVE COMPLETED', CR,LF J 



DMSGL=!?-DMSG J 
'PROGRAM ERROR' ,CB,LF 



USERML=$-USERM ; 
'PROGRAM EXIT ' J 



CONST USEXTL=$-USEXT 

ORIGIN $(LOW $ AND 1) 

ID R0,8000H+30*512 

LDCTL REFRESH, R0 

LD R0,~STAREA(-4) 

LDCTL PSAPOFF,R0 

LD R0,TMD1 

OUT TPT+3,R0 



%MGBE TIMER 1 
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01B6 


2100 


00B6 


01BA 


3B06 


0FE7 


01BE 


3B34 


0FE0 


01C2 


2101 


000D 


01C6 


3B16 


0FE6 


01CA 


AC91 




01CC 


3B16 


0FE6 


01D0 


AC91 




0112 


2102 


0034 


01D6 


A73? 




eiDS 


EE04 




01BA 


2101 


01A1 


01DE 


2102 


0470 


01E2 


A736 




01L4 


EE01 




01E6 


AL21 




01E8 


3B16 


0FE5 


01EC 


AC91 




01EE 


3B16 


0FE5 


01E2 


2100 


£0CE 


01F6 


2101 


0027 


01FA 


3B06 


0FE9 


01FE 


3116 


0FE9 


0202 


3B06 


0FED 


0206 


3B16 


0FED 


020 A 


2100 


0033 


020E 


3B06 


0FF3 


0212 


4106 


400C 


0216 


A735 




0218 


EE04 




021A 


6501 


400C 


021E 


6 500 


400C 


0222 


4105 


4084 


0228 


41.08 


4082 


022C 


760F 


40D0 


0230 


7600 


40BA 


0234 


6E00 


40A4 


0238 


4105 


406 E 


023E 


D958 




0240 


760E 


015F 


0244 


210D 


0003 



CKHIGd: 



STBAUD: 



1000 



SETUPC: 



0FB3 



PROMPT: 
DISERA: 



LD 

nnrp 

IN 

LB 

OUT 

EXB 

OUT 

EXB 

LD 

BIT 

JR 

LB 

LB 

BIT 

JR 

EX 

OUT 

EXB 

CUT 

LD 

ID 

OUT 

OUT 

GUT 

OUT 

LD 

OUT 

CLE 

EIT 

JR 

SET 

SET 

LD 

CLR 

LD 

LD 

LD 

LD 

CALR 

LD 

LD 



R0.TMB2 

TPT+3,R0 

R3,KPI 

R1,RT96 

T?T+2,R1 

RH1.RL1 

TPT+2,R1 

RH1.RL1 

R2,RT24 

R3,7 

NZ,CKHIGH 

Rl r RT30 

R2.&T11 

R3,6 

NZ f STBAUD 

Rl f R2 

TPT+1.R1 

RH1,RL1 

TPT+1.R1 

R0,5MDE 

R1,SCMB 

CPT+1.R0 

CPT+1.R1 

SPT+l f R0 

SPT+1.R1 

R0 t PMDE 

PPT+3 f R0 

CTLWD 

R3.5 

KZ, SETUPC 

CTLWD, CNOSV 

CTLWB.CRTSW 

US PC, USER? 

USICW 

R15.~5TACK 

R0, USRSTK 

U15,R0 

LED? , LPT 

RESET_RECVE 

R14,~PRMSG 

R13,3 



%MODE TIMER 2 

%TIMEP. 2 LSB (UP/DOWN LOAD PORT) 
%TIMFR 2 MSB 



%TIMER 1 LSB (CRT PORT) 
ZTIMER 1 MSB 

TENABLE 9551 CONSOLE 
TENABLE 9551 UP/DOWN 

TENABLE 9555 UP/DOWN 



2set console output local 

%set keyboard/led flag 

£set default user pc 

*set lefault user fcw 

%set monitor stack 

£set default user stack 

%set led display at some 
switch; 
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0248 


DA91 






DISER: 


CALR 


CONOUT 


^PROMPT 


024A 


DB36 






RDOD: 


CALR 


CONIN 


;%get commandUeyed 


024C 








PROD: 








024C 


2102 


2020 






LD R2, 






0250 


A 123 








LD 


R3,R2 


I^CLEAR ASSEMBLY 


0252 


LA47 








CALR 


GETCH 




0254 


0B00 


001B 






CP 


R0,ESC 




0258 


EE01 








JR 


NZ,TESTCR 




02 5A 


M4B 








CALR 


GETCH 




025C 


0B00 


000D 




TESTCR: 


C? 


R0,CR ; 




0260 


E60E 








JR 


ZR,DECP0S 


'£END ON CR 


0262 


A131 








LD 


Kl,R3 




0264 


0701 


00FF 






AND 


R1,M3 ; 




0268 


0B01 


0020 






CP 


Rl.' ' 




026C 


EE1E 








JR 


NZ,KESKBD J 


%ASSEMBLY OVERFLOW 


026E 


B325 


E7F8 






SRLL 


RR2,8 




0272 


B301 


0008 






SLL 


R0,8 




0276 


8502 








OR 


R2,R0 




0278 


M60 








CALR 


NEXCH 


;%NEXT CHARACTER 


027A 


0B00 


0020 






CP 


R0,' ' 




027E 


EEEE 








JR 


NZ t TESTCR ; 




0230 


ABE0 






DSCP05: 


DEC 


R14,l ; 




0282 


1002 


4D53 


4120 




CPL 


RR2/MSA ' 




0288 


5E06 


0672 






JP 


zr,xasm ; 


%ASSEMBLER REQUEST 


023C 


1002 


4441 


4F4C 




CPL 


RR2,'PA0L' 




0292 


5E06 


0698 






JP 


ZR,XLCAD 


'%L0AD FROM SYSTEM 8 


02S6 


1002 


5250 


444C 




CPL 


RR2,'RPDL' ; 


% "ldpr" 


029C 


5E06 


067E 






JP 


zr,xldpr; 




02A0 


1002 


4556 


4153 




CPL 


RR2, 'EVAS' 




02A6 


5E06 


06E4 






JP 


ZR,XSAVE ; 


£SAVE ON SYSTEM 8 


02AA 


760E 


400E 




RESOD: 


LD 


R14, "KEYED 




02AE 


M75 








CALR 


GETCH 


£CEECK SINGLE LETTE 


02B0 


0B00 


001B 






CP 


R0,FSC ; 




02E4 


EE01 








JR 


NZ, SAVPOS ; 




02B6 


DA79 








CALR 


GETCH 




02B8 


93FE 






SAVPOS: 


PUSE 


R15~,R14 ; 




02BA 


760E 


0118 






LD 


R14.~CMDLST 1 




02BE 


7601 


0128 






LD 


Rl, CMDADD(-2) 




02C2 


A102 








LD 


R2,R0 




02C4 


A911 






CMDTLP: 


INC 


Rl,2 ; 




02C6 


DA87 








CALR 


NEXCH 
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02C8 


8104 


02CA 


E605 


02CC 


8B20 


02CE 


EEFA 


02D0 


97FE 


02D2 


2112 


02D4 


1E28 


02D6 


97EE 


02D8 


760E 0162 


02DC 


E8B3 


02DE 




02DE 




02DE 




02DE 


3DB3 


02E0 


3IC8 


02 F2 


DA89 


02E4 


A1CD 


02 E6 


A1BC 


02 E8 


A310 


02EA 


A11B 


02EC 


0B00 000D 


02F0 


E603 


02F2 


3DD4 


02F4 


EEF1 


02 F6 


E8F5 


02F3 


2100 0003 


02EG 


7601 4070 


0300 


2F1B 


0302 


A911 


0304 


6LB4 


0306 


E604 


0308 


21B2 


030A 


2F12 


030C 


0DB5 7FFF 


0310 


A911 


0312 


A1CB 


0314 


Aire 


0316 


F80C 


0318 


6505 400C 


031C 


M64 


031E 


7B00 





TEST 


R0 ; 




JR 


ZR, CMDPOP ; 




C? 


R0,R2 : 




JR 


NZ f CMDTLP ; 




POP 


R14,R15~ J 




LD 


R2,R1~ : 




JP 


R2* ; 


CMDPOP: 


POP 


R14,R15~ J 


CMDER: 


LD 


R14,~ERMSG : 




JR 


IISERA ; 


% 






% 


SET BREAKPOINT (1-3) AND I 


% 






SETBRK: 


CLR 


Rll ; 




CLR 


Ri2 ; 


SETBA: 


CALR 


HEX TST ; 




LD 


R13.R12 J 




LD 


R12,R11 ; 




RES 


ri,0 ; 




LD 


rh,ri ; 




CP 


R0.CR ; 




JR 


ZR.5FTBB 5 




TEST 


R13 ; 




JR 


NZ,CMBER j 




JR 


SETBA ; 


SETBB: 


LD 


R0,3 




LD 


R1,~BRKTAB ; 


SETBC: 


LD 


R1~,R11 ; 




INC 


Rl,2 5 




TEST 


Rll 




JR 


ZR t SETED j 




LD 


R2,R11~ 




LD 


R1~,R2 




LD 


Rll~ f 7FFFH j 


SETBD: 


INC 


Rl,2 




LD 


Rll t R12 




LD 


R12,R13 




DBJNZ 


RL0, SETBC 




SET 


CTLWD,TRMDE 


SETBE: 


CALR 
I RET 


RESTR 



^EXECUTE SINGLE LETTER COMMAND 



%?m QUESTION PROMPT 



%FETCH BREAKPOINT ADIRESS 



%SAVE ADDRESS 



£SAVE CONTENT 
%STUFF SYSTFM CALL 



UOOP FOR 3 BREAKPOINTS 
%RESTORE USER REGISTERS 
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0320 






0320 






0320 






0320 


EAA8 




0322 


DE4D 




0324 


3B16 


0FD4 


0328 


6505 


400C 


032C 


E311 




032E 






032E 






032E 






/-* ry j-» *r-« 

iC3££ 


2102 


0007 


0332 


DA8F 




0334 


EED1 




0336 


2100 


0001 


033A 


B303 


0200 


033E 


3D00 




0340 


B313 


0200 


0344 


6102 


4082 


0348 


3?02 




034A 


8512 




034C 


6E02 


4082 


0350 


5E03 


0240 


0354 






0354 






0354 






0354 


93FE 




0356 


DAA1 




0353 


9?EE 




03 5A 


2102 


0003 


0351 


E6EB 




0360 






0360 






0360 






0360 


MC3 




0362 


A11C 




0364 


A3C0 




0366 


A1CD 




0368 


0B00 


000D 


036C 


E606 




036E 


DACF 





% 
% 
% 

EXBRK: 



% 

% 

SETCRY: 

SETFCW: 

SETFCA: 



SETFCB: 

% 

% 

% 

SETDAJ: 



SET HARDWARE BREAKPOINT - E COMMAND 



CALR HEX_TST 

CALR cr_cbk; 

OUT BKP.F1 

SET CTLWD,TRMDE 

JR SETFCB 



SET CARRY FLAG(OR CLEAR) - C COMMAND 



LD 

CALR 

JH 

LD 

SDL 

COM 

SDL 

LD 

AND 

OR 

LD 

JP 



R2,7 

GETBIT 

NZ,CMDER 

R0,1 

R0,R2 

R0 

R1.R2 

R2,USFCW 

R2 t R0 

R2.R1 

USFCW,R2 

PROMPT 



SET DECIMAL ADJUST(OR CLEAR) - D COMMAND 



PUSH 

CALR 

POP 

LD 

JR 



R15 ,R14 

GETBIT 

R14,R15~ 

R2 t 3 

ZR, SETFCA 



DISPLAY MEMORY WORDS IN HEX AND ASCII - D COMMAND 



CALR 

LD 

RES 

LD 

CP 

JR 

CALR 



HEX_TST 

R12,E1 

R12,0 

R13,K12 

R0 t CR 

ZR,DISMED 
HEX TST 



%FETCH FROM ADDRFSS 



%NO END ADDHESS 
%FETCH TO ADDRESS 
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0270 


A11D 




0372 


A3D0 




0374 


DE76 




0376 


8ITC 




0378 


EBAF 




037A 


A9D1 




037C 


A1LA 




037E 


83CA 




0330 


210B 


0010 


0384 


EE05 




0366 


6700 


400C 


033A 


E6E2 




038C 


5E08 


024A 


0390 


8BBA 




0392 


EF01 




0394 


A1AB 




0396 


A1BA 




0398 


A1CE 




039A 


7608 


400E 


039E 


A1E1 




03A0 


DABD 




03A2 


2101 


0004 


03A6 


DA7A 




03A8 


21C1 




03AA 


A9C1 




03AC 


LAC3 




03AE 


2100 


002e 


03B2 


IAB8 




03B4 


ABA1 




03B6 


EEF3 




03B8 


LB00 




03BA 


0B00 


0020 


3BE 


E703 




03 C0 


0B00 


007E 


03C4 


E702 




03C6 


2100 


£05F 


03CA 


LAC4 




03CC 


ABB0 




03CE 


EEE4 




0310 


LAC4 




03D2 


93ED 





LD R13 f Rl 

RES R13,0 

CALR CR CHK; 

CP R12.F13 

JR LGT,CMBER 

DISMED: INC R13,2 

DISMEA: LI R10,R13 

SUB R10,R12 

LD R11.16 

JR NZ,DISMEB 

DISMEI: BIT CTLWD, CRTS* 

JR ZR,SETFCB 

JP RDOD 

DISMEB: CP R10,R11 

JR NC,DISMEC 

LB R11.P10 

BISMEC: LB R10,K11 

LD R14,R12 

LD R8 t ~KEOB 

LD R1,K14 

CALR PUT 14= 

LD Rl,4 

CALR PUTS? 

DISMEE: LD R1,R12~ 

INC R12.2 

CALR PUTE4 

LD R0,' ' 

CALR PUTCH 

DEC R10,2 

JR NZ, DISMEE 

DISMEF: CALR NEXCH 

CP R0,' ' 

JR CY,DISMEG 

CP R0,BEL 

JR CY t DISMEE 

DISMEG: LD R0 , '_ ' 

DISMEE: CALR PUTCE 

DEC Rll,l 

JR NZ f DISMEF 

CALR CRLF 

PUSH R15~,R13 



%FROM > TO 
%SET LWA+1 



%ADDRESS TO OUTPUT AREA 
%4 SPACES AFTER ADDRFSS 

%EEX DATA TO OUTPUT AREA 



USCII DATA TO OUTPUT AREA 



4016 


EVALUATION 


0314 


93FE 


03D6 


760E 400E 


03DA 


A18D 


03DC 


83ED 


03DE 


DB5C 


03E0 


97FC 


03E2 


97FD 


03E4 


E8CB 


03E6 




03E6 




03E6 




03.E6 


DB0B 


03E8 


A11C 


03EA 


A3C0 


03EC 


A1CI) 


03EE 


DA2C 


03F0 


EE54 


03F2 


DBU 


03F4 


0E00 000D 


03F8 


E606 


03 FA 


A11B 


03FC 


A3D0 


03FE 


3BDC 


0400 


EB4C 


0402 


DB19 


0404 


BEBE 


0406 


2EC1 


0408 


A9C1 


040A 


3 BBC 


040C 


E3EC 


040E 


E86B 


0410 




0410 




0410 




0410 


2102 0002 


0414 


E88E 


0416 




0416 




0416 




0416 


BB23 


0418 


A11C 
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PUSH R15 .R14 

LB R14, KEYBD 

LD R13,R8 

SUB R13,R14 

CALR CONOUT 

POP R12,Rl5~ 

POP R13,R15~ 

JR DISMEA 



% 

% 
% 
FILMEM: 



FILMA: 



% 

% 

% 

SETELE: 

SETHLA; 

% 

% 

% 

MOVE: 



FILL MEMORY - F COMMAND 

CALR EEX_TST 

LD R12,E1 

RES R12,0 

LD R13,R12 

CALR COMMA 

JR NZ,CMDERR 

CALR HEX TST 

CP R0,CR 

JR ZR,FILMA 

LD R13,R1 

RES R13,0 

CP Ri2,R13 

JR LGT,CMDERR 

CALR EEX_TST 

CALR CR_CHK: 

LD R12~,R1 

INC R12,2 

CP R12.R13 

JR LLE,FILMA 

JR GOPRM 



^DISPLAY DATA LINE 
%LOOP FOR MORE LINES 

;%FETCa FIRST (OR ONLY ) ADDRESS 



OETCH SECOND ADDRESS (OR VALUE) 
%ONLY ONE ADDKESS 



£FROM > TO 
%FETCE VALUE 



%DO FILL 
£LOOP TO END 



SET HALF CARRY FLAG(0R CLEAR) - H COMMAND 



LD 
JR 



R2,2 
SETFCV 



MOVE MEMORY - M COMMAND 



CALR 
LD 



EEX_TST 
R12,fil 



J^FETCH FROM ADDRESS 
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041A 


A3C0 




041C 


LA43 




041E 


EE3D 




0420 


DB28 




0422 


A IIP 




0424 


A3D0 




0426 


LA48 




0428 
042A 


EE38 
DB2D 




042C 


DED2 




042E 


SBDC 




0430 


EB34 




0432 


A1D2 




0434 


83C2 




0436 


3BC1 




0436 


EB06 




043A 


A921 




043C 


B321 


FEFF 


0440 


BBC1 


0210 


0444 


E850 




0446 


3121 




0448 


A921 




044A 


B321 


FEFF 


044E 


BBB9 


0210 


0452 


E849 




0454 






0454 






0454 






0454 


DB48 




0456 


0E00 


004D 


045A 


EE1E 




045C 


8D38 




045E 


E852 




0460 






0460 






0460 






0460 


93EE 




0462 


DB27 




0464 


97EE 




0466 


2102 


0004 


046A 


5E06 


0336 



MOVEA 



% 
% 
% 
UMODE 



% 
% 
% 
SETPAR 



SETPAA: 



RES R12,0 

CALR COMMA 

JR NZ,CMDERR 

CALR HEX_TST 

LD R13 f Rl 

RES R13,0 

CALR COMMA 

JR NZ,CMDERR 

CALR HEXJTST 

CALR CR_CHKJ 

CP R12,R13 

JR LGT,CMDERR 

LD R2,R13 

SUB R2,R12 

CP R1,R12 

JR LGT, MOVEA 

INC R2,2 

SRL R2,l 

LDIR Rl",R12",R2 

JR GOPRM 

ADD R1,R2 

INC R2.2 

SRL R2 A 1 

LDDR Rl ,R13^,R2 

JR GOPRM 



SET USER NORMAL MODE - NM COMMAND 



%FETC3 THROUGH ADDRESS 



%FETCH TO ADDRESS 



CALR 

CP 

JR 

CLR 

JR 



GETCH 

R0,'M' 

NZ,CMDERR 

R3 

SETMDE 



SET PARITY/OVERFLOW FLAG(OR CLEAR) - P COMMAND 



PUSH 

CALR 

POP 

LD 

JP 



R15 ,R14 

GETBIT 

R14,R15~ 

R2,4 

ZR,SETFCA 
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046E 






046E 






046F 






046E 


DB55 




0470 


0B00 


003B 


0474 


EE12 




0476 


DB53 




0478 


BEES 




047A 


6E01 


4084 


047E 


3333 




0480 






0480 






0430 






0480 


93EE 




0482 


BB5F 




0484 


3BB3 




0486 


0B00 


004C 


048A 


E615 




048C 


A5B3 




048E 


0B00 


0048 


0492 


E611 




0494 


97EE 




0496 


BFEB 




0498 


E624 




049 A 


5E03 


02PS 


049E 


BAFB 




04A0 


9E0E 




04A2 


0B00 


003B 


04A6 


9E0E 




04A8 


A11C 




04AA 


31CC 




04AC 


DB69 




04AE 


9E0E 




04B0 


0B00 


000D 


04B4 


9E08 




04B6 


97E1 




04B8 


B00E 




04BA 


EEEE 




04 BC 


A1C0 




04BS 


700 


FFF0 


04C2 


EEEB 





SET USER PC ADDRESS - P COMMAND 



CMDERR: 
REGVAL: 



SETBRG: 



CALR 

CP 

JR 

CALR 

CALR 

ID 

JR 



GETCE 

R0,'=' 

NzicMDERR 

HFX_TST 

CR_C r IK; 

USPC.R1 

GOPRM 



% 

% 

5ETREG: PUSH 
CALR 
CLR 
CP 
JR 
SET 
CP 
JR 
POP 
CALR 
JH 
JP 

CALR 
RET 
CP 
RET 
LD 
ADD 
CALR 
RET 
C? 
RET 
POP 
CALR 
JR 
LB 
AND 
JR 



SET REGISTER CONTENT - R COMMAND 



R15 ,R14 

GETCH 

R13 

R0/L' 

ZR, SETBRG 

R13,3 

R0,'H' 

ZR, SETBRG 

R14,R15~ 

REGVAL 

ZR,SETREA 

CMDER 

DEC4 

NZ 

R0, '=' 

NZ 

R12,R1 

R12,R12 

HEX16 

NZ 

R0,CR 

R1,R15~ 

REGVAL 
NZ, CMDERR 
R0,K12 
R0,MU12 
NZ, CMDERR 



%LC*ER BYTE REGISTER 



%UP?ER BYTE REGISTER 
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04C4 


A112 




04C6 


0701 


FF00 


04CA 


EEL7 




04CC 


61C1 


4086 


04B0 


B323 


0D00 


0414 


2100 


00FF 


0418 


B303 


0D00 


04DC 


31)00 




04IE 


8701 




041.0 


8521 




04E2 


6FC1 


4036 


04E6 


5E08 


0240 


04FA 






04EA 






04LA 






04 FA 


&3FF 




04SC 


EB6C 




04FE 


97FE 




04F0 


2102 


0005 


04F4 


5E06 


0336 


04F8 






04F8 






04F3 






04F6 


LB9A 




04FA 


0B00 


004D 


04FE 


EE07 




0500 


2103 


4000 


0504 


DBA0 




0506 


ESC9 




0506 


6F03 


4082 


050C 


E8EC 




50E 






050E 






050E 






050E 


ABE0 




0510 


IBA0 




0512 


BF45 




0514 


A11D 




0516 


A 310 




0518 


7608 


400F 


051C 


Airi 







LD 


R2,R1 






AND 


R1,MU8 






JR 


NZ,CMDERR 






LD 


R1,U0(R12) ; 






SDL 


R2 f R13 






LD 


R0 , M8 






SDL 


R0,K13 ; 






COM 


R0 






AND 


Rl f R0 






OR 


R1,R2 




SETREA: 


LD 


U0(R12),R1 




GOPRM: 


JP 


PROMPT 




% 






% 


SET SIGN FLAG(OR CLEAR) - S COMMA 


% 






SETSGN: 


PUSH 


R15~,R14 ; 






CALR 


GFTEIT 






POP 


R14,R15~ ; 






LD 


R2,5 ; 






JP 


ZR,SETFCA 




% 






% 


SET USER SYSTEM MODE - SM COMMAND 


% 








CALR 


GETCH 






CP 


R0, 'M' 






JR 


NZ.SUBS? ; 






LD 


R3,4000H 




SETMrE: 


CALR 


GETCH 






JR 


NZ,CMDERR 






LD 


USFCW.R3 






JR 


GO?Rh 




% 






0/ 

4s 


SUBSTITUTE MEMORY - S COMMAND 


% 






SUBST: 


DEC 


R14,l ; 




CALR 


HEX TST :£FETCH S 




CALR 


cr cex; 




LD 


R13,R1 ; 






RES 


R13,0 




SUBSTA: 


LD 


rs,~keybd ; 






LD 


R1,R13 
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051E 


DB7C 




CALR 


PUTH4 


0520 


2100 


0020 


LB 


R0,' ' 


0524 


DB71 




CALR 


PUTCH 


0526 


2 in 




LD 


R1,R13~ 


0523 


DB31 




CALR 


PUTE4 


052A 


2100 


002D 


LD 


R0,'-' 


052E 


DB76 




CALR 


PUTCH 


0530 


Q3FD 




PUSE 


R15"^R13 

R14, KEYB 


0532 


760E 


400E 


LL 


/tipt:« 


o 1 rxr, 


rxr/rx a 


T TV 


rn r? ■* n 


jj »_■ \j\j 


fc i-rj xj 


Xj K/K/Xl 


UXJ 


i\ i o , 1 \u 


53A 


DC0A 




CALR 


CONOUT 


053C 


DCAF 




CALR 


CONIN 


053E 


97JD 




POP 


R13,R15~ 


0540 


DBBE 




CALR 


or 3b x o u. 


0542 


E60B 




JR 


ZR.SUBSTB 


0544 


0B00 


002E 


CP 


R0,'.' 


0543 


5E06 


0240 


J? 


ZR, PROMPT 


054C 


ABE0 




EEC 


R14,i 


054E 


EBB A 




CALR 


EEX16 


0550 


EEE3 




JR 


NZ t SUBSTA 


0552 


0B00 


000D 


CP 


R0,Cfi 


0556 


EEE0 




JR 


NZ,SUBSTA 


558 


2FB1 




LL 


R13~,R1 


055A 


A9D1 




SL-BSTB: INC 


R13,2 


055C 


E8DD 




JR 


SUBSTA 


055E 






% 




055E 






% EXECUTE 


UNDER TRA 


055E 






% 




055E 


DBCD 




TRACE: CALR 


GETCE 


0560 


4105 


407C 0001 


TRACA: LD 


TRCNT,1 


0566 


4105 


407E 0001 


LD 


TRDIS.l 


056C 


4D08 


4080 


CIR 


TRINC 


0570 


E618 




JR 


ZR,TRACB 


0572 


ABE0 




DEC 


R14,l 


0574 


DB7B 




CALR 


DEC16 


0576 


EE13 




JR 


NZ f CMBRR 


0578 


8D14 




TEST 


Rl 


057A 


E611 




JR 


ZR,CMDRR 


057C 


0B00 


003D 


CP 


R0,'=' 


0580 


E60E 




JR 


ZR t CMLRR 


0582 


6E01 


407C 


LD 


TRCNT.R1 



^ADDRESS TO OUTPUT AREA 
%SPACE AFTER ADDRESS 
^CONTENT TO OUTPUT AREA 
£HYPHEN PROMPT 

^"nTCDTftV TTKiT 

%FETCH RESPONSE 

%CR ONLY IS ADVANCE 

%PERI0D IS TERMINATE 

%SET SUBSTITUTE VALUE 
%IGNCRE ERRORS 

£DO SUBSTITUTION- 



MODS - T COMMAND 



^DEFAULT ONE INSTRUCTION 

^DEFAULT INTERVAL EVERY INSTRUCTION 



2FETCH INSTRUCTION COUNT 
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0566 


0B00 


000B 


05SA 


E60B 




053C 


DB89 




058E 


EE0? 




0590 


8114 




0592 


E605 




0594 


0B00 


000D 


0598 


6F01 


407E 


059C 


E602 




059E 


5E08 


02D6 


05A2 


6505 


400C 


05A6 


6506 


400C 


05AA 


DBAB 




05AC 


3B06 


011)8 


05B0 


7B00 




05B2 






05B2 






05B2 






05B2 


2102 


0004 


05B6 


5E08 


0332 


05BA 






05BA 






5BA 






05BA 


7608 


400E 


05BE 


BBFD 




05C0 


EE2B 




05C2 


760D 


4036 


05C6 


SLC8 




05C8 


DB82 




05CA 


2101 


0007 


05CE 


DB8E 




051-0 


BB7B 




05D2 


A9D1 




0514 


2101 


0001 


05D8 


A9C0 




05BA 


0B0C 


0003 


05 IE 


EEE7 




5E0 


DBCC 




05E2 


91EC 




05E4 


760E 


400E 


05E6 


2101 


004F 





CP 


R0,CR ; 






T U 

LI XV 


ZR, TRACB ; 


%DEFAULT DISPLAY INTEEV 




CALR 


DEC16 


fcFETCH DISPLAY INTERVAL 




JR 


NZ, CMDRR J 






TEST 


ri ; 






JR 


ZR, CMDRR ; 






CP 


r0,cr ; 






LB 


TRDIS.R1 J 






JR 


ZR, TRACB ? 




CMDRR: 


JP 


CMDER 5 




TRACB: 


SET 


CTLWB,TRMDE 5 


%SET STEP MODE 




SET 


CTLWD,STPFLG ! 




TRACC: 


CALR 


RESTR ; 






OUT 


STP,R0 ; 


%ENABLE ONE INSTRUCTION 




IRET 






% 








% 
% 
SETOVF: 


SET PARITY/OVERFLOW FLAG(OR CLEAR) - V 'COMMAND 


LD 


R2,4 






JP 


SETFCtf 


> 


% 








% 
% 
LISREG: 


DISPLAY 


REGISTERS - X COMMAND 


LD 


R8 f ~KEYBD 






CALR 


GETCH 






JR 


NZ,DISP?.G 


' %NCT GENERAL CASE 




LD 


R13,~U0 






CLR 


R12 






CALR 


PUTPC 


;%?c=xxxx 




LD 


Rl,7 




DISRA: 


CALR 


PUTSP 






CALR 


PUTRG 


;%REGISTERS 0-7 




INC 


R13,2 






LD 


Rl f l 






INC 


R12,l 






CP 


R12,3 






JR 


NZ, DISRA 






CALR 


CRLF 






PUSHL 


R15~,RR12 






LD 


R14,~KEYBD 






LD 


R13 f 79 
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05EC 


DC63 




05EE 


95EC 




0510 


7608 


400E 


5F4 


DP78 




05F6 


2101 


0002 


05FA 


LBA4 




05FC 


DB93 




05FE 


A9D1 




0600 


2101 


0001 


0604 


A9C0 




0606 


0B0C 


0010 


260A 


EEF7 




060C 


210D 


004F 


0610 


LBE4 




0612 


760E 


400E 


0616 


DC73 




0618 


5E08 


0386 


061C 


0B00 


0050 


0620 


EE04 




0622 


rC2E 




0624 


EEBC 




0626 


DB5F 




0628 


E8F7 




062A 


0B00 


0046 


062E 


EE06 




0630 


LC36 




0632 


EE2F 




0634 


DB98 




0636 


210D 


000E 


063A 


E8EA 




063C 


ABE0 




063E 


DBCB 




0640 


EE28 




0642 


DFBD 




0644 


AUG 




0646 


761L 


4086 


064A 


311D 




064C 


BBBB 




064E 


210D 


0009 


0652 


E3BE 




0654 







CALR 

PCPL 

LD 

CALR 

LD 

LISRB: CALR 
CALR 
INC 
LL 
INC 
CP 
JK 
LD 

DISRC: CALR 
LD 
CALR 

DISRD: JP 

DISPRG: CP 
JR 

CALR 
JR 
CALR 
JR 

DISFLG: CP 
JR 

CALR 
JR 

CALR 
LD 
JR 

DISNRG: DEC 
CALR 
JR 

CALR 
LD 
LD 
ADD 
CALR 
LD 
JR 



CONOUT 

RR12,R15~ 

R8,~KEYPD 

PUTFL 

R1 T 2 

PUT5P 

PUTRG 

R13,2 

Rl,l 

R12 t l 

P.12,16 

NZ,DISRB 

R13,79 

CRLF 

R14,~KEYBD 

CONOUT 

DISMEI 

R0, 'P' 

NZ, DISFLG • 

GETCH 

NZ,CMDRR 

BRKDIS 

DISRD 

R0,'F' 

NZ, DISNRG 

GETCH 

NZ,CMDRE 

PUTFL 

R13 t 14 

DISRC 

R14,l 

DEC 4 

NZ,CMDRE 

cr_chk; 

R12,R1 

R13,~U0(R1) 

R13,R1 

PUTRG 

R13,9 

DISRC 



%FLAGS 



^REGISTERS 3-15 



.^HANDLE P REGISTER 
%PC=XXXX 

^HANDLE FLAG REGISTER 



%DO SPECIFIC REGISTER 
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0654 






% 


SET ZERO FLAG(CR CL 


0654 






% 






0654 


2102 


0006 


SETZRO: 


LD 


R2,6 


0658 


5E06 


0332 




JP 


SETFCW 


065C 






% 






065C 






% 


GO COMMAND 


065C 






% 






065C 


6305 


400C 


XECTE: 


RES 


CTLtfD.TRMDE 


0660 


DC4E 






CALR 


GETCB 


0662 


E605 






JR 


ZR, SETBEE 


0664 


ABE0 






DEC 


R14,l 


0666 


DC4B 






CALR 


HEX T3T 


0668 


BFF0 






CALR 


CR chk; 


066A 


6F01 


4084 




LD 


USPCfil 


066E 


5E03 


031C 


SETBEE: 


J? 


SETBE 


0672 






% 






0672 






% 


ASM COMMAND 


0672 






% 






0672 


6305 


400C 


XASM: 


RES 


CTLKD f TRMDE 


0676 


4105 


4084 1000 




LD 


DSPC t U5ERP 


067C 


E3F3 






JR 


SETBEE 


067E 






% 






067E 






% 


LOAD 


COMMAND 


067E 






% 






067E 






XLDPR: 






067E 


DBAC 






CALR 


ldsve; 


0630 


E703 






JR 


cy,cmdre; 


0682 


4D05 


4000 0EA0 




LDA 


CHDEST,READ 


0668 


E80A 






JR XLOAD1J 


063A 






• 






06SA 






CR_CHK: 






068A 


0B00 


000B 




CP 


R0,cr; 


063E 


9E06 






RET 


eq: 


0690 


97E2 






POP 


R2,R15~; 


0692 






CMBRE: 






0692 


DB82 






CALR 


RESET RECVE 


0694 


5E08 


02D8 




JP 


cmder; 


0698 






% 






0693 


I)BB9 




XLOAD: 


CALR 


LLSVE 


069A 


BBB4 






CALR 


ldsvi; 


069C 


EEFA 






JR 


NZ f CMDRE 



%NO ADDRESS 
%FETCE PC ADDRESS 



% FILE NAME ERROR 
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069E 






069E 


D00B 




06A0 


DFF4 




06A2 


760E 


00E6 


06A6 


210B 


001E 


06 A A 


EE13 




06AC 


BEES 




06AE 


EE07 




e6B0 


6101 


4080 


06B4 


0101 


0080 


06B8 


6F01 


4080 


06BC 


S3F7 




06BE 






06BE 


DB98 




06C0 


0B07 


0001 


06C4 


EE06 




06C6 


BEFB 




06C8 


760E 


0165 


06CC 


210B 


0010 


0610 


F805 




06D2 


BF01 




0614 


760E 


00F6 


06B8 


2101 


000E 


06DC 






06IC 


DBA? 




06BE 


DCLC 




06E0 


5E03 


0336 


06E4 






06F4 






06E4 






06E4 


DBDF 




06E6 


EBDA 




06E8 


EEB4 




06EA 


DBAA 




06FC 


FEB2 




06EE 


93F1 




06F0 


DC8B 




0612 


97F2 




06F4 


EECE 




06F6 


1037 




06F3 


3B12 





XLOAD1: 
XLOADD: 

XLOADA: 



XLOADB 



XLOADC 
DISERG 



% 
% 
% 
XSAVE: 



CALR 

CALR 

LD 

LB 

JR 

CALR 

JR 

LB 

ADD 

LB 

JK 

CALR 

CP 

JR 

CALR 

LD 

LD 

JR 

CALR 

LD 
LD 

CALR 
CALR 
JP 



cr_chk; 

OPEN 

R14, "MISER 

R13,MISERL 

NZ, DISERG 

READ 

NZ, XLOADB 

Rl.TfiINC 

PI, 123 

TRINC,R1 

XLOADA 



%OPEN LOAD FILE ON SYSTEM 8 



%NOT AVAILABLE 
%READ SYSTEM SECTOR 



%ADVANCE LOAD ADDRESS 



reset__recve_switch; 
R7,i; 

NZ,XLOADC ? 

CLOSE ; 

R14,~L0DCM ; 

R13,LCDCML J 

DISFRG J 

CLOSE ; 

R14,~BSKER ; 

R13,DSKERL ; 



reset_recve 
coniOUt; 

DISMEI 



switch; 



SAVE COMMAND 



CALR 

CALR 

JR 

CALR 

JR 

PUSH 

CALR 

POP 

JR 

CALR 

CP 



LDSVE 

ldsvi; 

NZ,CMDRE 

COMMA 

NZ,CMDRE 

R15~,R1 

HEX16 

R2,ttl5~ 

NZ,CMDRE 

cr_cek; 

R2,R1 



£FETCE SAVE TO ADDRESS 



4016 


EVALUATION 


06FA 


EBCB 




06FC 


6101 


407E 


0700 


DF15 




0702 


EEE7 




0704 


EI 09 




0706 


EEE5 




0706 


6101 


4080 


070C 


0101 


0080 


0710 


6F01 


4030 


0714 


6102 


407E 


0718 


8B21 




071A 


E3F4 




071C 


BF26 




071E 


76 0E 


0175 


0722 


210D 


0010 


0726 


ESDA 




0728 






0728 






0726 






0728 


DBF3 




072A 


6306 


400C 


072E 


760E 


0165 


0732 


210D 


000F 


0736 


E8B2 




0738 






0738 






0738 






0738 


DBFB 




073A 


6706 


400C 


073E 


E613 




0740 


6900 


4080 


0744 


6101 


4080 


0748 


6102 


407E 


074C 


8B21 




074E 


F708 




0750 


6B00 


407C 


0754 


E608 




0756 


DBF7 




0758 


4103 


4030 


075C 


5108 


05AA 


0760 


6B00 


407 C 
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XSAVEA 



% 

% 
% 
USERR 



% 
% 
% 
STPRTN 



JR LGT,CMDRE 

LD TRDIS f Rl 

CALK CREATE 

JR NZ,XLOADC 

CALR WRITE 

JR NZ,XLOADC 

LD Rl.TRINC 

ADD R1.128 

LD TRINC.R1 

LD R2,TRDIS 

C? R1,R2 

JR LLE, XSAVEA 

CALR CLOSE 

LD R14,~DMSG 

LD R13,DMSGL 

JR DISERG 



£FROM < TO 

%CREATE SYSTEM 8 FILE 
^COULDN'T CBEATE 
fctfRITE SYSTEM 8 SECTOR 
%WRITE ERROR 

^ADVANCE SAVE ADDRESS 



£EMB SAVE AREA 



USER PROGRAM ILLEGAL TRAP 



CALR SAVER 

RES CTLVD,STPFLG 

LD R14,~USSRM 

LD R13,ISERML 

JR DISERG 



£SAVE USER REGISTERS 
ICLFAR STEP CONTROL 



STPRTC: 
STPRTA: 



NON-MASKABLE INTERRUPT - STEP CONTROL AMONGST OTHER THINGS 

CALR SAVER ;%SAVE USER REGISTERS 

BIT CTLVD.STPFLG 

JR ZR,5TPRTB ;%MUST BE BOARD SWITCH OR BREAKPOINT 

INC TRINC,1 

LD Rl.TRINC 

LD R2,TRDIS 

CP R1,R2 

JR LLT, STPRTA 

DEC TRCNT.l 

JR ZR,ST?RTB 

CALR BRKDIS 

CLR TRINC 

JP TRACC 

DEC TRCNT,1 



%NOT TIME FOR DISPLAY 
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0764 


SEFB 




0766 


6306 


400C 


076A 


BC01 




076C 


5E08 


0386 


0770 






0770 






0770 






0770 


5705 


400C 


0774 


5F06 


02B3 


r.nrjr. 


O T -A -1 




V ( t C 


C J.-*=X 




077A 


5E08 


0560 


077E 






077E 






077E 






077E 


DC1E 




0782 


0702 


00FF 


0784 


1:638 




r* r\ *">> /T* 

I6YDC 


0B02 


00FF 


0761 


EF0E 




078G 


2100 


0003 


0790 


7604 


4070 


0794 


6103 


4084 


0798 


AB31 




079A 


0D44 




079C 


E605 




079F 


0B43 




07A0 


E616 




07A2 


A 943 




07A4 


AB00 




07A6 


EEF9 




07A8 


BFEA 




07AA 


6306 


400C 


07AE 


7603 


400 E 


07B2 


93F2 




07B4 


2101 


000D 


07P8 


7602 


0194 


07BC 


BC7F 




07BF 


97F1 




07C0 


B319 


0003 


07C4 


rccr 




07C6 


2101 


0011 



STPRTB 



% 
% 
% 
STEP 



% 

% 
% 
SYSCAL: 



CHKBRK 



UEXIT 



JR NZ,3TPRTC 

RES CTLWB,ST?FLG 

CALR BRKDIS 

J? PISMEI 



%N0T END TRACE OR STEP 



STEP C0MMAM)(CR ONLY IF CONDITION SET) 



BIT CTLtfP,TRMIE 

JP ZR f CMEER 
SETFLG ZR 

JP TRACA 

USER PROGRAM CALL 

CALR SAVER 

AND R2,M8 

JR ZR,PR0CAL 

CP K2,M8 

JR NZ, UEXIT 

LL R0,3 

LB R4,~BRKTAB 

LB R3,USPC 

BFC R3.2 

TEST R4 

JR ZR, UEXIT 

CP R3,R4~ 

JR ZR,BRKHIT 

INC R4,4 

LEC R0,1 

JR NZ,CHKBRK 

CALR CLP.BRK 

RES CTLfcP,STPFLG 

LE R3,~KEYBB 

PUSH K15~,R2 

LD R1 T USEXTL 

LB P 2, "US EXT 

CALR PUTMS 

POP Rl f R15~ 

SLA Rl,3 

CALR PUTEXB 

LB K13,USEXTL+4 



;%CONBITIONS NOT RIGHT 



%SAVE USER REGISTERS 
^SERVICE REQUEST 
£NOT BREAKPOINT TRAP 

%BACK PC TO TRAP ABBRESS 

%MATCE ON SET BREAKPOINT 

£CLEAR BREAKPOINT TABLE 
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07CA 


5E03 


0610 


07CE 


6E03 


4084 


07P2 


DFFF 




07D4 


E3C3 




07P6 


2100 


0003 


071 A 


7604 


4078 


07DE 


2145 




07E0 


0148 




07F2 


A941 




07E4 


3154 




07E6 


E603 




07F8 


2146 




07EA 


0143 




07EC 


2E56 




07EE 


AB45 




07 F0 


A £0-0 




07F2 


EEF5 




07F4 


9E03 




07F6 






07F6 






07F6 






07F6 


1C11 


0303 


07EA 


E339 


F7J8 


07EE 


0703 


00FF 


0802 


0B03 


0001 


0806 


E707 




£805 


EE24 




080A 


DL16 




080C 


LE24 




030E 


0B00 


001E 


0612 


5E06 


024C 


0816 


6101 


4.088 


031A 


760E 


400E 


08 IE 


1C11 


0303 


2822 


A158 




0324 


A167 




0826 


8D68 




0828 


0307 


0001 


032C 


E703 




082E 


LB3B 




0630 


A 109 





JP 



DISRC 



■n T-. XT T7 T fn - 


T T. 


TT Q-Tifl TIT- 




CALP 


CLRBRK 




JR 


STPRTE 


CLRBRK: 


Lr 


R0,3 




LD 


R4,~BRKTAB(8) 


CLRBA: 


LE 


R5j,R4~ 




CLS 


R4 




INC 


R4,2 




TEST 


R5 




JR 


ZR, CLRBB 




Lr 


R6,R4~ 




CLR 


R4~ 




LD 


R5~,R6 


CLRBB: 


LEG 


R4,6 




DEC 


R0,1 




JR 


N2, CLRBA 




RET 




% 






% 

Cv 


PROCESS 


A USER PROGRA 


/o 

PROCAL: 


LBM 


R3,R1~,4 




SRA 


R3,8 




AND 


R3.M3 




CP 


R3 f l 




JR 


CY f ?ROCAA 




JR 


NZ,?R0CA3 




CALR 


CONIN 




CALR 


GETCF 




CP 


R0,ESC 




JP 


ZR,PRKBD 


PROCAA: 


LL 


R1,U1 




IB 


R14, "KEYED 




I I'M 


R3,Rl" f 4 




LL 


R6,K5 




LL 


R7,R6 




CLR 


R6 


PROCAB: 


SUB 


R7,l 




JR 


CY,PROCAC 




CALR 


NEXCR 




LD 


R9,R0 



%SET USER PC TO TRAP LOCATION 
£AKD CLEAR BREAKPOINT TABLE 

fcCLEAR BREAKPOINT TABLE(IN REVERSE) 



^RESTORE BREAKPOINT CONTENT 



fcFETCH PARAMETER LIST 



^RETURN KEYBOARD REQUEST 



^ESCAPE IS MONITOR RETURN 



%?REMATURE END 
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0332 


DCF3 




0834 


A 960 




0836 


0B09 


000D 


033A 


EEF6 




083C 


6178 




083E 


3D72 




0340 


0703 


FF00 


0844 


8573 




0646 


6101 


4088 


084A 


1C19 


0303 


084E 


SE08 


031C 


ZB52 


.0.M3-. 


0003 


0356 


A16D 




0858 


EE08 




085A 


A15E 




035C 


DD9B 




0S5E 


81)76 




0860 


6101 


4088 


0364 


1C11 


0303 


0868 


E8EB 




086A 


A14E 




036C 


3D43 




086E 


E605 




0870 


A1F4 




0872 


0B03 


£007 


0876 


EI 03 




0878 


3 IDS 




087A 


BFDC 




067C 


L6F1 




0871 


EE0B 




0830 


3BD3 




0862 


BFC1 




0884 


5101 


4088 


0838 


1C11 


0303 


086C 


£101 


0080 


0890 


LF03 




0392 


A1C6 




0894 


E8D5 




0896 


0B03 


0008 


039A 


210D 


0080 


089E 


E6ED 







CALR 


PUTCH 




INC 


R6 , 1 




CP 


R9,CR 




JR 


NZ,PROCAB 




CLR 


R7 


PROCAC: 


NEG 


R7 


PROCAD: 


AND 


R3,MU3 




OR 


R3 t R7 




LD 


R1,U1 




LDM 


P 1 ~ . P 7y A 




JP 


SETBE 


PHOGAF: 


£P 


R3,3 




LD 


R13,R6 




JP 


NC, PROCAG 




LD 


R14,K5 




CALR 


CONOUT 




CLR 


R7 


PROGAF: 


LD 


R1,U1 




LDM 


R3,R1~,4 




JR 


PROCAD 


PROCAG: 


LB 


R14,R4 




CLR 


R4 




JR 


ZR, PROCAH 




LD 


R4,R14 




CP 


R3,7 




JR 


NC,PROCAI 




CLR 


R13 


PROCAH: 


CALR 


OPEND 




JR 


PROCAF 


PROCAI: 


JR 


NZ, PROCAJ 




CLR 


R13 




CALR 


TRNSMT 




LD 


Rl r Ul 




LDM 


R3,R1~,4 




ID 


R13,128 




CALR 


DIALOG 




LD 


R6,R12 




JR 


PROCAD 


PROCAJ: 


CP 


R3,8 




LD 


R13,123 




JR 


ZR,PROCAE 



^NORMAL END 



%OUTPUT CONSOLE REQUEST 



%OPEN, CLOSE, CREATE, PRINT 



%READ SECTOR 
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0SA0 


A16D 




08A2 


EFL1 




08A4 


6101 


4088 


03 A3 


1C11 


0303 


08AC 


210E 


FFFF 


0£B0 


AE54 




03B2 


DF14 




08B4 


AL54 




08B6 


A1C6 




03B8 


E3C3 




08BA 






03BA 






08BA 






08BA 


2103 


0004 


08BE 


81158 




03C0 


7604 


4060 


08C4 


BFE2 




08C6 


7605 


400E 


03CA 


2101' 


0050 


08CE 


BF22 




08E0 


9E08 




08E2 






08E2 






08L2 






03E2 






08E2 


2103 


0005 


0816 


E8F3 




03E8 






08r8 






08E8 






03L3 


2103 


0006 


06 DC 


E8F0 




08rE 






03EE 






08EE 






08BE 


2103 


0007 


03E2 


3 ELS 




06E4 


7604 


4060 


08E8 


LFF4 




03EA 


210D 


0030 


08EE 


6105 


4080 



K> 
% 
% 

OPEN: 
OPENA 
OPENB 
OPENE 



OPENC: 

% 
% 
% 
CLOSE: 



% 
% 
% 
CREATE: 

% 
% 
% 
REAL: 



LE 

CALR 

LE 

LEM 

LE 

EX 

CALR 

EX 

LE 

JR 



R13,R6 

TRNSMT 

R1,U1 

R3 f ftl",4 

R13, 65535 

R4,R5 

EIALOG 

R4,R5 

R6.R12 

PROCAE 



%SPFCIAL FUNCTIONS 



OPEN SYSTEM 8 FILE 



LE 

CLR 

LE 

CALR 

LE 

LE 

CALR 

RFT 



R3,4 

R13 

R4,~FILNM 

TRNSMT 

R5,~KEYBE 

R13,S0 

EIALOG 



CLOSE SYSTEM 3 FILE 



LE 

JR 



R3,5J 
OPENA 



CREATE SYSTEM 8 FILE 



LE 

JR 



R3,6 
OPENA 



REAL SYSTEM 8 SECTOR 

LD R3,7 

CLR R13 

LE R4,~FILNM 

CALR TRNSMT 

LE R13.128 

LE R5.TRINC 
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08F2 


E8EB 




3F4 






06 F4 






0814 






03F4 


2103 


0008 


08F8 


2101 


0080 


0SFC 


6105 


4080 


0900 


33BF 




0902 






0902 






0902 






0902 


2100 


0005 


0906 


DFC8 




0903 


LF75 




090A 


0E00 


0005 


090E 


F6FC 




0910 


0B00 


0006 


0914 


EEF6 




0916 


2100 


0001 


091A 


DFI)2 




091C 


A 130 




291E 


0100 


0030 


0922 


DFL6 




0924 


0B03 


0004 


0928 


E70? 




092A 


0B03 


0009 


092E 


EF04 




0930 


A14E 




0932 


210C 


000B 


0936 


BFF0 




0938 


2100 


0002 


093C 


BF23 




0'93E 


SID4 




0940 


F603 




0942 


A1LC 




0944 


A15E 




0946 


LFF8 




0943 


2100 


0004 


094C 


LFEB 




094E 


LF98 




0950 


0B00 


0006 



% 
% 

% 
WRITE: 



o/ 

/c 

% 

% 
TRNSMT: 

TKIMSMA: 



Jfi OPENC 

WRITE SYSTEM 8 SECTOR 



TRNSMB: 



TRNSMC 



TRNSMB 



LL 

LB 
LB 
JR 



R3,8 
R13,128 
R5,TRINC 
OPENB 



TRANSMIT R13 CHARACTERS FROM T?.^ . nOT)¥ T Ki T?3 AWT PTT.TSWft MTT AT Bd 



LD 

CALR 

CALR 

CP 

JR 

CP 

JR 

LL 

CALR 

LE 

ALL 

CALR 

CP 

JR 

CP 

JR 

LL 

LD 

CALR 

LD 

CALR 

TEST 

JR 

LD 

LD 

CALR 

LD 

CALR 

CALR 

C? 



R0 T ENQ - 

TRNCHR 

RECRR 

R0 T ENQ 

ZK,TRNISMA 

R0,ACK 

NZ, TRNSMT 

R0,SOE 

TRNCHR 

R0,R3 

R0,'0' 

TRNCHR 

R3,4 

CY,TRNSMC 

R3,9 

NC,TRNSMC 

R14,R4 

R12,13 

SENLCH 

R0 t STX 

TRNCHR 

R13 

ZR, TRNSMB 

R12,R13 

R14,R5 

SFMDCE 

R0,EOT 

TRNCHR 

RECHR 

R0,ACK ; 



£ASK PERMISSION 
^.RESPONSE 

^ENQUIRY SHOULD BE FOLLOWED BY ACK 



%SOH 

%CODE 
%HQ NAME 
%HO NAME 

£FILE NAME 

%STX 

%NO TEXT 

%DATA 
£EOT 
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0954 
0956 
958 
0956 
0958 
0958 
095A 
095C 
0960 
0964 
0966 
0963 
096C 
0970 
0972 
0974 
0976 
0978 
0978 
0978 
0973 
097A 
097C 
0930 
0964 
0966 
093A 
096C 
0990 
0992 
0996 
099A 
099E 
09A2 
09A4 
09A6 
09AA 
09AE 
09B2 
09B6 
09B8 



EEE0 
9E08 



r-ire 

93E0 
£309 
0100 
I- IF? 
97F0 
0700 
0100 
DUE 
ABC0 
EEF1 
9E08 



8433 
7112 
B319 
0701 
6510 
6704 
EE27 
6703 
E62r 
3E06 
2101 
3B16 
3B14 
A 7 12 
EE0B 
6503 
2101 
3B16 
3B14 
A712 
E6EC 



JR 



EBFC 
0030 



000F 
0030 



0003 
0050 

400C 

400C 

0EF0 
000F 
0FF3 
0FE2 



400C 
000E 

0FE3 
0FF2 





RET 




% 






% 


TRANSf 


-1IT HEX FROM R14 


% 






SENICB: 


CALR 


NEXCK 




PUSH 


R15~,R0 




SKA 


R0,4 




ADD 


R0.'0' 




CALR 


TRNCHR 




POP 


R0,R15~ 




AND 


R0,M4 




ALE 


R0/0' 




CALR 


TRNCHR 




EEC 


R12,l 




JR 


NZ,SENLCE 




RET 




% 






% 


TRANSMIT CHARACTER IN 


% 






TRNCBR: 


OKB 


RL0,RL0 




LECTL 


R1,FCW 




SLA 


Rl f 3 




AM 


Rl f 30H 




OR 


R0.R1 




BIT 


CTLWE.RMOSW+1 




JR 


NZ f TRNCHE 




BIT 


CTLWE.RMOSW 




JR 


ZR,TRNCEG 




OUT 


?PT,R0 




LI 


Rl f 0FK 




OUT 


PPT+3,R1 


TRNCHA: 


IN 


Rl ,PPT+2 




BIT 


Rl ,2 




JK 


NZ,TRNCBB 


TRNCHE: 


SET 


CTLWr.RMOSW 




IB 


R1.0EH 




OUT 


P?T+3,R1 


TRNCHI: 


IN 


Rl ,PPT+2 




BIT 


Rl,2 




JR 


ZK,TRNCEI 



NZ.TRNSMB J^RE-TRANSMIT 



WITH PARITY 



%SERIAL OUTPUT 

%NOT PARALLEL OUTPUT 

2SET TRANSMIT(BIT 7} 



%SENSE RESPONSE(BIT 2) 
%SET REMOTE PARALLEL 

fcCLEAR TRANSMIT 



%VAIT RESPONSE EROP(BIT 2) 
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09BA 


9E08 




09BC 


A713 




09BE 


SEEF 




09C0 


2101 


000D 


09C4 


3B16 


0FF3 


09C8 


3B14 


0FF2 


09CC 


A713 




09CE 


E6FC 




09D0 


2101 


000C 


(7GT.A 

1U *S jLi~X. 


w aj a- v-/ 


G*PT?T 


09D8 


E8E2 




09DA 


3B14 


0FED 


09DE 


A710 




09F0 


E6FC 




09E2 


3B06 


0FEC 


09E6 


6504 


400C 


09FA 


9E08 






31)23 




09EE 


3B06 


0FF0 


09F2 


2101 


000F 


09F6 


3B16 


0FF3 


09FA 


3B14 


0FF2 


09FE 


A712 




0A00 


E6D2 




0A02 


AB20 




0&£4 


EEFA 




0A06 


3B14 


0FEI5 


0A0A 


A710 




0A0C 


E6EF 




0A0E 


3B06 


0FEC 


0A12 


3B14 


0FED 


0A16 


A711 




0A18 


EEE6 




0A1A 


AB20 




0A1C 


EEFA 




0A1E 


E8E6 




0A20 






0A20 






0A20 






0A20 


6704 


400C 


0A24 


6118 







RET 






TRNCHB: 


BIT 


Rl,3 






JR 


NZ,TRNCHA 






LI) 


R1,0DH 






OUT 


?PT+3,R1 




TRNCHC: 


IN 


Rl,PPT+2 






BIT 


Rl,3 






JR 


ZR, TRNCHC 






LD 


R1.0CH 






nnfr 


TJDIPj.7 15 1 






V-' f J. 


i. J. X ' U | il X 






JR 


TRNCBA 




TRNGHE: 


IN 


R1-,SPT+1 


• 




BIT 


R1,0 







JR 


ZR,TRNCEE 






OUT 


SPT,R0 




TRNCHF: 


SET 
RET 


CTL*D,RM0SW+1 




TRNCHG: 


CLR 


R2 






OUT 


PPT,R0 






LD 


R1,0FE 






CUT 


PPT+3,R1 




TRNCHH: 


IN 


Rl.PPT+2 






BIT 


Rl,2 






JR 


ZR f TRNCHD 






DEC 


R2,l 






JR 


NZ,IRNCEE 






IN 


Rl.SPT+1 






BIT 


R1,0 






JR 


ZR, TRNCHG 






CUT 


SPT,R0 




TRNCEJ: 


IN 


R1,SPT+1 






BIT 


Rl,l 






JR 


NZ, TRNCHF 






DEC 


R2,l 






JR 


NZ,TRNCHJ 






JR 


TRNCHG 




% 








% 


RECEIVE 


CHARACTER TO R0 




% 








RECER: 


BIT 


CTLWD,RMOSW+l 


• 

> 




CLR 


Rl 


* 



&SENSE RECEIVE(BIT 3) 
%SET RECEIVE ACK(BIT 6) 

%'n/AIT RECEIVE DROP 



vrTUD id m r> tt> Tinr unzftiTni c\ 
*ux)xjxiii- iixj\jxjj.»Ji< av>iv\x)ix \j / 



%VAIT SERIAL READY 
%SET REMOTE SERIAL 
%FOR UNKNOWN - TEST IF SERIAL OR PARALLEL 



£GOT RESPONSE FROM PARALLEL 
%WAIT A BIT 

%SFRIAL NOT HEADY FOR OUTPUT 

£GOT RESPONSE FROM SERIAL 

%WAIT A BIT 

£GO TRY PARALLEL AGAIN, AND AGAIN, AND 



;£TIMEOUT VALUE 
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0A26 


EE0B 






JR 


NZ f RFCEB 


0A28 


6703 


400C 




BIT 


CTLWD.RMOSV 


0A2C 


EE13 






JR 


NZ, RECHC 


0A2E 


3B04 


0FF2 


RFCHA: 


IN 


R0,PPT+2 


0A32 


A702 






BIT 


R0,2 


0A34 


E602 






JR 


ZR, RECHB 


0A36 


A703 






BIT 


R0,3 


0A33 


E60D 






JR 


ZR, RECHC 


0A3A 


3B04 


0FEE 


RECHB: 


IN 


R0,SPT + 1 


0A3E 


A701 






BIT 


R0,1 


0A40 


E6F6 






JR 


ZR,RECHA 


0A42 


6504 


400C 


RECHB: 


SET 


CTLfc'B,RMCSW+l 


0A46 


3B04 


0FEB 




IN 


R0,SPT+1 


0A4A 


A701 






BIT 


R0.1 


0A4C 


E6EA 






JR 


ZR, RECHB 


0A4E 


3B04 


0FEC 




IN 


R0,SPT 


0A52 


E314 






JR 


RECHF 


0A54 


6503 


400C 


RECHC: 


SET 


CTLWE,RMOSW 


0A58 


3B04 


0FF2 




IN 


R0,PPT+2 


0A5C 


A703 






BIT 


R0,3 


0A5E 


EEFA 






JR 


NZ, RECHC 


0A60 


3B04 


0FF1 




IN 


R0,PPT+1 


0A.64 


2101 


0001) 




LP 


R1,0DH 


0A68 


3B16 


0FF3 




OUT 


?PT+3,R1 


0A6C 


3B 14 


0FF2 


RECEE: 


IN 


Rl,P?T+2 


0A70 


A713 






BIT 


Rl,3 


0A72 


E6FC 






JR 


ZR,RECHE 


0A74 


2101 


000C 




LB 


R1,0CE 


0A73 


3B16 


0FF3 




OUT 


PPT+3,R1 


0A7C 


0608 


FFFF 


RECEE: 


AN LB 


BL0,M8 


0A80 


8C08 






CLRB 


RH0 


0A82 


A 307 






RES 


R0,7 


0A84 


SE08 






RET 




0A86 






% 






0A36 






% 


RECEIVE 


TO R5(TEXT) 


0A86 






% 






0A86 


2100 


0015 


KNACK: 


LB 


R0,NAK 


0A8A 


D0SA 






CALR 


TRNCE.R 


0A8C 


1037 




DIALOG: 


CALR 


RECHR 


0A8E 


0B00 


0005 




CP 


R0,ENQ 


0A92 


EEF9 






JR 


NZ, KNACK 



;%SERIAL INPUT 
^PARALLEL INPUT 

%SENSE INITIAL RESET 

%SENSE PARALLEL READY(BIT 3) 

£SET SERIAL I/O 



£SET PARALLEL I/O 

%SENSE RECEIVE(BIT 3) 

£SLT RECEIVE ACK(BIT 6) 

%fc'AIT RECEIVE LROP 
%CLEAR RECEIVE ACK(BIT 6) 



R13 MAX CEAR-CODE TO R7-ACTUAL COUNT TO R12 
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0A94 


2100 


0006 


0A98 


B091 




0A9A 


BFC3 




0A9C 


0B00 


0001 


0AA0 


EE33 




0AA2 


BFCC 




0AA4 


7607 


4006 


0AA8 


7608 


4000 


0AAC 


210E 


0003 


0AB0 


3B61 


0E70 


0AL4 


0500 


0tf30 


o A r.< o 


* -1 n tt. 

ti. j. \u r-j 




0ABA 


BFB8 




0ABC 


0B00 


0002 


0AC0 


EE23 




0AC2 


A 158 




0AC4 


8BC3 




0AC6 


BFBS 




0AC8 


A 107 




0ACA 


307 


0030 


0ACS 


BFE2 




0AB0 


0300 


0030 


0AB4 


B379 


0004 


0AB3 


3507 




0AIA 


LFE8 




2ABC 


0B00 


0004 


0AE0 


E610 




0AE2 


A 102 




0AF4 


0302 


0030 


0AE3 


BFEF 




0AEA 


0300 


0030 


0AEE 


B329 


0004 


0AF2 


3520 




0AF4 


8 BBC 




0AF6 


E6F1 




0AE3 


6102 


4000 


0AFC 


1F20 




0AFE 


A9C0 




0B00 


E8EC 




0R02 


2100 


0006 


0B06 


B0C8 





ACKNL 

RECVE 



RECVA 



REOVB 



LB 
CALR 

CALK 

CP 

JR 

CALR 

LB 

LB 

LB 

LBIR 

SUB 

T T\ 
iiiJ 

CALR 
C? 
JR 
LB 
CLR 
CALR 
LB- 
SUB 
CALR 
SUB 
SLA 
OR 

CALR 
CP 
JR 
LB 
SUB 
CALR 
SUB 
SLA 
CR 
CP 
JR 
LB 

CALL 
INC 
JR 
LL 
CALR 



R0,ACK 


; 






TRNCHR 


• 






RECHR CHK 






;%soh 


R0,SCH 


• 






NZ, FLUSH 


• 






RECHR CHK 






;%cobe 


R?,~OLB STATE; 








R8,~statf; 








R14,3; 








R7~,R8~,R14 


1 K> 


SAVE 


STATE 


R0 t '"0"' 








Hit ,K0 








RECHR CHK 






;*stx' . 


R0,STX 








NZ,FBUSH 








R8,R5 








R12 








RECHR CHK 






;£RESP0NSE1 


R7,R0 


1 






R7,'0' 


> 






RECHR CHK 






:%RESPDNISE2 


R0,'0 7 








R7,4 








R7.R0 








RECHR CHK 






J£TEXT 


R0,EOT 


) 






ZR,RECVB 


;%eot 




R2,R0 


J 






R2,'0' 


• 






RECHR CHK 






t 


R0/0* 7 








R2,4 








R0 t R2 








R12,R13 








ZR,RECVA 


;%BUFFER FULL 


R2,CHBEST: 








R2~J 








R12,l 


• 






RECVA 


• 
* 






R0,ACK 


i 






TRNCHR 


i 
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0B03 


35?7 




0B0A 


9E06 




fcBec 






0B0C 


B077 




0B0E 


9E0C 




0B10 


97F2 




0B12 


31)28 




0B14 


6704 


400C 


0B18 


FE1F 




0B1A 


3B04 


0FF2 


0B1E 


A703 




0B20 


EE0L 




0B22 


2101 


£001 


0B26 


3B16 


0FF3 


0B2A 


3B04 


0FF2 


0B2E 


A703 




0B30 


E6FC 




0B32 


2101 


000C 


0B36 


3B16 


0FF3 


0B3A 


ESEB 




0B3C 


AB20 




0B3E 


EEEA 




0B40 


2100 


0015 


0B44 


I0E7 




0B46 


7607 


4006 


0B4A 


7608 


4000 


0B4E 


210E 


0003 


0B52 


BB71 


0E30 


0B56 


E8A1 




0B58 


3B04 


0FEL 


0B£C 


A701 




0B5E 


E6EE 




0F60 


3B04 


0FEC 


0B64 


S3D6 




0B66 






0E66 






0B66 






0B66 






2B66 


7608 


406E 


0B6A 


2107 


0007 


0B6E 









OR 


R7,R7 


• 
1 




RET 




• 


RECER_CEK: 








CALR 


rechr; 






RET 


not pe; 






POP 


R2,K15~; 


% FLUSH IF PE 


FLUSH: 


CLE 


R2 


;%DRAIN INPUT AND NAK 


FLUSHA: 


BIT 


CTLw'D,RMOSV + l 






JR 


N2, FLUSES 






IN 


R0,PPT+2 






BIT 


R0,3 






JR 


NZ,FLUSEB 






LD 


R1.0DH 






OUT 


PPT+3,R1 




FLUSH C: 


IN 


R0,PPT+2 






BIT 


R0,3 






JR 


ZR,FLUSHC 






LD 


R1,0CH 






OUT 


PPT+3,R1 






JR 


FLUSE 




FLUSHB: 


DEC 


R2,l 






JR 


NZ, FLUSHA 






LB 


R0,NAK 






CALR 


TRNCER 


» 




LD 


R7,~0LP STATE; 






LD 


R8,~STATEJ 






ID 


R14,3; 






LIIR 


R3^,R7",R14; 


% RESTORE STATS 




JR 


RECVE 




FLUSES: 


IN 


R0,SPT + 1 






BIT 


R0,1 






JR 


ZR,FLUSEB 






IN 


R0,SPT 






JR 


FLUSH 


» 


% 








% 


ASSEP 


BIE FILE NAME 




% 








FNAME: 









FNAM1: 



LD R8,~EILNM(14); 
LD R7,7; 
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0B6E 


0L89 


2020 


0B72 


FF03 




0B74 






0B74 


BEP3 




0B76 


0A0S 


4141 


0B7A 


E71E 




0B7G 


0A03 


4444 


0B80 


EB1B 




0B82 


ABE0 




0B34 


BAE1 


0788 


0B88 


20E8 




0BSA 


0A08 


3A3A 


0B3E 


EE14 




0B90 


BAE1 


0788 


0B94 


2107 


0008 


0B93 


DEEF 




0B9A 


0A0F 


0808 


0B9E 


E60C 




0BA0 


0A03 


2E2E 


0BA4 


EE06 




0BA6 


7608 


406A 


0BAA 


A9E0 




0BAC 


2107 


0003 


0BB0 


LFFB 




0BB2 






0BB2 


A9E0 




0BB4 


8D83 




0BB6 


9E0S 




0BB8 






0BB8 


8181 




0BBA 


9E08 




0BBC 






0BBC 






0BBC 


20E8 




0BBE 


0A08 


3030 


0BC2 


9E07 




0BC4 


0A08 


3939 


0BC8 


E306 




0BCA 


0A08 


4141 


0BCE 


9E07 




0BD0 


0A08 


5A5A 





PUSH 


R8 ,' '; 




DBJNZ 


RL7,FNAMi; 


% 








CALR 


getch; 




CPB 


RL0,'A'; 




JR 


LLT,FNAM5J 




CPB 


RL0,'r'; 




JR 


LGT,FNAM5; 




DEC 


R14 f l» 




LDIB R3 


" ? R14"jR7? 




LLB 


RL0,R14~J 




CPB 


RL0,':'; 




JR 


NZ^FNAMS; 




LDIB 


R8 ,R14~,R7J 




LD 


R7,8; 




CALR 


TR chk; 




CPB 


RL7,8J 




JR 


EQ,FNAM5; 




CPB 


RI0, '.'; 




JR 


ne,fnam4; 




LP 


R8,~filnm(10); 




INC 


Ri4,i; 




LL 


R7,3? 




CALR 


tr_cek; 


ENAM4: 








INC 


R14,i; % INCR 




RESFLG 


cy; 




ret; 




FNAM5: 








SETFLG 


cy; 




ret; 




% 






TR_CHK: 








LDB 


RL0,R14~; 




CPB 


RL0/0'; 




RET 


llt; 




CPB 


RL0,'9'; 




JR 


lle,tr cki; 




CPB RL0 


' ft ' • 

» A » 




RET 


llt; 




CPB 


RL0,'Z'j 



% CLEAR FILE NAME BUFFER 



% RE-POSITION STRING POINTER 

% ERROR 

% EMPTY FILE NAME? 
% FILE TYPE? 
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0BM 


9E0B 






RFT 


lgt; 


0BB6 












0BI6 


BAE1 


0788 




LDIB 


R8" f R14^ f R7J 


0BIA 


ECF0 






JR 


nov,tr chk; 


0BBC 


C It lid 






I.DB 


RL0,R14~: 


0BBE 


9E08 






RET ; 




0BE0 






% 






0BE0 






% 






0BB0 






% 


READ 


KEYBOARD MESSAGE 


0BF0 






% 






0BE0 


7603 


400E 


CONIN: 


LB 


R8,~KEYBE 


0BE4 


A1S5 






LB 


R5,R8 


0BE6 


210D 


0050 




LB 


R13,80 


0BEA 


6702 


400C 




BIT 


CTLWE,CNOSW+l 


0BEE 


EE34 






JR 


NZ,REMIN 


0BF0 


6700 


400C 




BIT 


CTLWE,CRTSW 


0BF4 


E63A 






JR 


ZR,CRTIN 


0BF6 


BF8E 






CALR 


KEYCK 


0BF8 


3E04 






TEST 


R0 


0BFA 


E619 






JR 


ZR.FSMCK 


0BFC 


6501 


400C 




SET 


CTLWB,CNCSV 


0C00 


A1£E 




CONIA: 


LB 


R14,R0 


0G02 


BF94 




CONIB: 


CALR 


KEYC9 


0C04 


SB04 






TEST 


R0 


0C06 


EEFB 






JR 


NZ, CONIB 


0C08 


7601 


FFE6 




LE 


Rl,~CHTAB(-32) 


0C0C 


811E 






ABB 


R14,K1 


0C0E 


DF2B 






CALR 


NEXCH 


0C10 


E605 






JR 


ZR, CONIB 


0C12 


EFC2 






CALR 


PRGCE 


0C14 


DF9E 




CONIC: 


CALR 


KEYCH 


0C16 


5104 






TEST 


R0 


0C18 


EEF3 






JR 


NZ.CONIA 


0C1A 


E8FC 






JR 


CONIC 


0C1C 


EEED 




CONIB: 


CALR 


PUTCH 


0C1E 


760E 


0160 




LB 


R14,~?RMSG+1 


0C22 


210D 


0002 




LB 


R13,2 


0C26 


BF80 






CALR 


CONOUT 


0C28 


760E 


400E 


COME: 


LB 


R14,~KEYBB 


0C2C 


9E03 






PET 




0C2E 


3B04 


0FF2 


REMCK: 


IN 


R0,PPT+2 



^REMOTE CONSOLE 

%RS232 CONSOLE 
ESPECIAL KEYBOARD 

%NO CHARACTER 
£SET LOCAL OUTPUT 



&VAIT GAP BETWEEN CHARACTERS 



^CARRIAGE RETURN 
^PROCESS CHARACTER 



£ECEO CARRIAGE RETURN LINE FEED 



£SEE IF REMOTE 
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0C32 


A702 




0C34 


E613 




0C36 


A 7 03 




0G38 


EE11 




0G3A 


6503 


400C 


0C3I 


6701 


400C 


0C42 


BE 02 




0C44 


6502 


400C 


0C46 


1)115 




0C4A 


0B00 


0005 


0C4E 


w;602 




r> n c n 
16L ~£ 


L0I6 




0C52 


E8EA 




0C54 


D0E1 




0C56 


E8E8 




0C58 


L0E7 




0C5A 


E3E6 




0C5C 


3B04 


0FEB 


0C60 


A701 




0C62 


S6BE 




0C64 


6504 


40 0C 


0C68 


E8EA 




0C6A 






0C6A 






0C6A 






0C6A 


3B04 


0FE9 


0C6E 


A701 




0C70 


F6IT 




0C72 


6501 


400C 


0C76 


3B04 


0FE9 


0C7A 


A701 




0C7C 


E6FC 




0C7E 


3E04 


0FE8 


0C82 


0700 


007F 


0C36 


0B00 


000D 


0C8A 


E6C8 




0C8C 


EFFF 




0CBE 


E3F3 




0C90 


0B00 


007F 


0C94 


F613 




0C96 


0B00 


£003 





BIT 


R0,2 ; 




JR 


ZR, CONII ; 




BIT 


R0,3 ; 




JR 


NZ, CONII ; 




SET 


CTLWE,RMOSW ; 


CONIF: 


BIT 


CTLVB.CNOSW J 




JR 


nz,comj ; 




SET 


CTLWD,CN0SW+1 ; 


CONIJ: 


CALR 


RECHR ; 




CP 


R0,FNQ J 




JK 


ZK,CONIH ; 




CALR 


KNACK J 




JR 


CON IE ; 


CONIB: 


CALR 


ACKNL ? 




JR 


conie ; 


REMIM : 


CALR 


DIALOG ; 




JR 


conie ; 


CONII: 


IN 


R0,SPT+1 ; 




BIT 


R0,i ; 




JR 


ZR,CONIN : 




SET 


CTL'rfB.fiMOSV+l J 




JR 


conif ; 


% 






% 


INPUT 


FROM SERIAL CONSOLE 


% 






CRTIN: 


IN 


R0,CPT+1 ; 




BIT 


R0 t i ; 




JR 


ZR,REMCX ; 




SET 


CTLWD,CNOSV ; 


CRTWT: 


IN 


R0 f CPT+l ; 




BIT 


E0,i ; 




JR 


ZR.CRTWT ; 




IN 


R0,CPT ; 




ANL 


R0,M7 J 




CP 


R0,CR ; 




JR 


zr, conie ; 




CALR 


proch ; 




JR 


CRTWT : 


PHOCK: 


CP 


R0,rEL ; 




JR 


ZR,PRODL J 




CP 


R0,BSP ; 



%SENSE INITIAL RESET 



%SET REMOTE PARALLEL 



%SET OUTPUT REMOTE 



&SET REMOTE SERIAL 



%SET LOCAL CONSOLE 



^CARRIAGE RETURi 
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0C9A 


E610 






JR 


ZR.PROBL 


1 


0C9C 


0B00 


0018 




CP 


R0,CAN 




0CA0 


£613 






JR 


ZR, PROCN 




0CA2 


0B00 


0020 




CP 


R0,' ' 




0CA6 


9E07 






RET 


CY 




0CA3 


7602 


405B 




LD 


R2,~KEYBB+79 




0CAC 


3528 






CP 


R8,R2 




0CAE 


9F.06 






RET 


zr ; 




0CB0 


A 132 






T T\ 

JJJ~' 


R14,RS 




0CB2 


2101 


0001 




LB 


R13,l 




0CB6 


BF3A 






CALR 


PUTCH ; 




0CB3 


DFC9 






CALR 


CONOUT 


"%ECHO CHARACTER 


0CBA 


9E03 






RET 






0CBC 


7602 


400E 


PRQBL: 


LB 


R2,~KEYEB 




0CC0 


3B23 






CP 


R3,R2 




0CC2 


9E06 






RET 


ZR 




0CC4 


760F 


0150 




LB 


R14,~BSPMS 




0CC3 


AB30 






BEC 


R3,l 




0CCA 


210B 


0003 


PROLM: 


LB 


R13,3 




0CCF 


DiD4 






CALR 


COMOUT 




0CB0 


9E03 






RET 






0CP2 


760E 


015C 


PROCN: 


LB 


R14 A ~CNMSG 




0CB6 


7608 


400E 




LB 


R8 f KEYED 




0CBA 


E3F7 






JR 


PRODM 




0crc 






% 








0CLC 






% 


EANBIE 


SPECIAL KEY BOARB 


;8016) 


0crc 






% 








0crc 


3106 




KBYCH: 


CLR 


R0 ; 


^PREVIOUS CHARACTER 


0CBE 


2101 


0014 




LB 


Rl,20 


l%ITERATICN COUNT 


0CE2 


3123 




KEYCD: 


CLR 


R2 ; 


^STROBE PATTERN 


0CE4 


8L9S 






CLR 


R9 


%FOUND PATTERN 


0CE6 


3B26 


0FDC 


KEYCA: 


OUT 


KP0,R2 i 


^STROBE 


0CEA 


3B34 


0FE0 




IN 


R3,KPI ; 




0CEE 


8B30 






COM 


R3 




0CF0 


0703 


001F 




ANB 


R3,M5 ; 




0CF4 


A 134 






IB 


R4,R3 




0CF6 


0704 


0007 




ANB 


R4,M3 




0CFA 


F60B 






JR 


ZR,KEYCB ; 




0GFC 


3L94 






TEST 


R9 : 




0CEE 


EEF1 






JR 


NZ,KErCB ; 


^DOUBLE KEY 


0B00 


A129 






IB 


R9,R2 ; 
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0D02 


B339 


FCED 


0L06 


B349 


0003 


0B0A 


8549 




0L0C 


B399 


0002 


0L10 


8539 




0B12 


A920 




0L14 


A723 




0D16 


I6E7 




eras 


8D04 




0D1A 


E602 




0D1C 


8B90 




0P1E 


EEBE 




0D20 


A 190 




0122 


AB10 




01524 


FFBE 




0E26 


9E03 




0B28 






0L28 






0L2S 






0L28 


6702 


400C 


0L2C 


EE41 




0B2E 


BFBB 




2B30 


0B00 


007E 


0B34 


EF0F 




0D36 


6700 


400C 


0B3A 


E633 




0L3C 


6102 


406E 


0D40 


0B00 


0008 


0L44 


E626 




0146 


0B00 


000D 


0D4A 


EEe? 




0D4C 


2102 


0FL3 


0B50 


6?02 


406E 


0P54 


ABB0 




0D56 


iiEEB 




0B58 


9E08 




0D5A 


0B00 


0020 


0B5E 


E7E8 




01)60 


0B02 


0FB3 


0D64 


EE09 




0L66 


2101 


0020 





SRA 


R3,3 




SLA 


R4,3 




OR 


R9,ti4 




SLA 


R9,2 




CR 


R9,R3 


KEYCB: 


INC 


R2,l 




BIT 


R2,3 




JR 


ZR,KEYCA 




TEST 


R0 




JR 


ZR, KEYCC 




CP 


R0,R9 




JR 


NZ,KFYCE 


KEYCC: 


LD 


XI XJ 9 IL ^7 




TEC 


Rl t l 




JR 


NZ,KEYCD 


z / 


RET 




h 
% 


OUT R13 


CHARACTERS FR 


% 






CONOUT: 


BIT 


CTLWB,CNOSW+l 




JR 


NZ t CONREM 


CONLP: 


CALR 


MEXCE 




CP 


R0 f DEL 




JR 


LGE, CONLF 




BIT 


CTLWD,CRTSW 




JR 


ZR,CONCRT 




LB 


R2,LEB? 




CP 


R0,BSP 




JR 


ZR,CCNLE 




CP 


R0 f CR 




JR 


NZ, CONLC 




LB 


R2.LPT 


CO^LE: 


LD 


LEBP.R2 


CONLF: 


DEC 


R13,l 




JR 


NZ, CONLP 




RET 




CONLC: 


CP 


R0,' ' 




JR 


LLT ,CONLB 




CP 


R2,LPT 




JR 


NZ,CONLA 




ID 


Rl/ ' 



%BOUNCE 



2RE-TRY FOR COINCITENDE 



%REMOTE CONSOLE 



£RS232 CONSOLE 
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0D6A 


3F21 




0I6C 


AB20 




0B6E 


0B02 


0FBF 


0D72 


EEEB 




01)74 


2102 


0ED3 


0B78 


0B02 


0FBF 


0D7C 


E6E9 




0B7E 


2101 


0040 


0L82 


8701 




0D34 


B319 


FEFF 


0B88 


61)10 




0D8A 


8710 




0P3C 


3120 




0LSE 


AB20 




0D90 


F8BF 




0D92 


0B02 


0FD3 


0196 


F6DC 




0L98 


A920 




0D9A 


2100 


0020 


0D9E 


3E20 




0BA0 


E8L7 




0PA2 


3B14 


0FE9 


0BA6 


A710 




0DA8 


E6EC 




0PAA 


3B06 


0FE8 


0DAE 


E8B2 




0DB0 


A1E5 




0DB2 


2103 


0002 


0DB6 


5E08 


0902 


0BEA 






0DBA 






0IBA 






0BBA 


2.0E8 




0BBC 


A9E0 




0BBE 


8C08 




0LC0 


0B00 


000B 


0DC4 


9E03 




0BC6 






0DC6 






0BC6 






0LC6 


1007 





CONLD: 


OUT 


R2 f Rl 




PEC 


R2,l 




CP 


R2,LPT-20 




JR 


NZ,CONLD 




LD 


R2,LPT 


CONLA: 


CP 


R2,LPT-20 




JR 


ZR,CONLB 




LD 


R1,40H 




AND 


R1,R0 




SRA 


Rl t l 




COM 


Rl 




and 


R0,K1 




OUT 


R2~,R0 




IEC 


R2,l 




JR 


CONLB 


CONLE: 


CP 


R2,LPT 




JR 


ZR t CONLB 




INC 


R2,l 




LD 


Mx ' 




OUT 


R2 ,R0 




JR 


CONLB 


CONCRT: 


IN 


R1,CPT+1 




BIT 


R1,0 




JR 


ZR.CONCRT 




OUT 


CPT,R0 




JR 


CONLF 


CONREM: 


LD 


R5,R14 




ID 


R3,2 




JP 


TRNSMT 


% 






% 


FETCH 


NEXT CBAitAC 


% 






NEXCE: 


LDB 


RL0,R14~ 




INC 


R14,l 




CLRB 


RHe; 




CP 


R0.CR 




RET 




% 






% 


FETCH 


NEXT NCN-EL 


% 






GETCH: 


CALR 


NEXCH 



- SET CR FLAG 
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0DC8 


9E06 




0DCA 


0B00 


0020 


0BCE 


E6FB 




0BE0 


9E08 




0BB2 






0ID2 






0BI2 






01)1)2 






0LL2 


BFFC 




ffitri 


C ¥ PP. 




(/l/JU'3 


%S U *J\S 




0BD6 


97F2 




0BD6 


5E08 


02BS 


err>c 






0DDC 


3B1S 




eriE 


B00B 




0LF0 






0PE0 


0300 


0030 


0BE4 


9E07 




0BF6 


0B00 


000A 


0BEA 


E703 




0BEC 


0300 


0007 


0BF0 


0F00 


000A 


0BF4 


9E07 




0IF6 


0B00 


000F 


er-FA 


9E0B 




0BFC 






0LFC 


A112 




0LFE 


0702 


F000 


0E02 


9E0E 




0E04 


B311 


0004 


0E08 


S501 




0E0A 


1)023 




0B0C 


9E06 




0E0E 


0B00 


002 C 


0E12 


9E06 




0E14 


ESi5 




0F16 






0E16 






0E16 






0E16 


B029 




0E13 


0300 


0030 





RET 


ZR 




CP 


R0,' ' 




JR 


ZR,GETCH 




RET 




% 






% 


FETCH 


16 BIT HEX 


% 






HFX_TST 


* 






CALR SEX16J 




RFT ZR 


• 

7 




POP R2 


,R15~; 




jp chber; 


HEX16: 


CLR 


Rl 




CALR 


GETCH 


HX16A: 








SUB 


R0, '0'; 




RET 


cy; 




CP 


R0,i0; 




JR 


cy,hxi6b; 




SUB 


R0,7; 




CP 


R0,i0; 




RET 


cy; 




CP 


R0,i5; 




RET 


lgt; 


HX16B: 








IB 


R2,ri; 




AKB 


R2 t MU4; 




PET 


nz; 




SLL 


Ri,4; 




OR 


ri,R0; 




CALR 


getch; 




RET 


zr; 




CP 


R0,V; 




RET 


zr: 




JR 


HX16A; 



FETCH OR 1 BIT TO Rl FROM (R14) 



GETBIT: CALR 
SUB 



GETCH 
R0,'0' 
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0E1C 


9E0? 






RET 


cy ; 


0E1E 


A101 






LX) 


R1.R0 ; 


0E20 


0300 


0001 




SUB 


R0,i ; 


0E24 


9E0B 






RET 


lgt ; 


0E26 


E8CF 






JK 


GETCE J 


0E28 






% 






0E26 






% 


PUT 4 


HEX DIGITS FRO^I Rl 


0E28 






% 






0E23 


LEES 




PUTE4: 


CALR 


PUTHB ; 


0E2A 


BFFF 






CALR 


PUTHB : 


0E2C 


B000 




PUTEXB: 


CALR 


PUTHB ; 


0E2E 


B305 


0004 


PUTHL: 


SLLL 


RR0,4 ; 


0E32 


0700 


000F 




AND 


R0 t M4 ; 


0E36 


0100 


0030 




ALE 


R0,'0' ; 


0E3A 


0B00 


003A 




CP 


R0,'9'+i ; 


0E3E 


E502 






JP 


mi.putce ; 


0E40 


0100 


0007 




ABB 


R0,7 ; 


0E44 






PUTCH: 






0E44 


2E88 






LBB 


R8~,RE0; 


0E46 


A980 






IMC R8 


• i; 


0E43 


9E0S 






ret; 




0E4A 






% 






0E4A 






% 


PUT CR 


ANB BF TO (R8) 


0E4A 






% 






0E4A 


2100 


000L 


CRLF: 


LB 


R0,CR ; 


0E4E 


L006 






CALR 


PUTCH ; 


0E50 


2100 


000A 




LB 


R0,LF ; 


0E54 


E6F7 






Jfi 


putck ; 


0E56 






% 






0E56 






% 


RESTORE USER REGISTERS 


0E56 






0/ 

/c 






0E56 


6100 


40A4 


RESTR: 


LB 


R0,U1£ ; 


0S5A 


57E0. 


40A4 




POP 


U1*,R15~ ; 


2E5E 


5402 


4082 




LL-L 


RR2.USFCW ; 


0E62 


A72E 






BIT 


R2,14 ; 


0E64 


EE09 






JR 


NZ.RESTRB ; 


0E66 


7B0F 






LBCTB 


NSPOFF,R0 ; 


0168 


91F2 




KFSTRA: 


PUSKL 


R15~,RR2 ; 


0E6A 


93F2 






PUSH 


K15~,R2 ; 


0I6C 


5C01 


000E 4086 




BBM 


R0,U0,15 ; 


0F?2 


53F0 


40A4 




PUSH 


R15"\U15 ; 



TO (R3) 



CENTERING SYSTEM MODE 
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0E76 


9E03 






RET 


* 


0E78 


A10F 




RESTRB: 


LI 


R15.R0 J 


0E7A 


E8F6 






JR 


RFSTRA J 


0E7C 






% 






0E7C 






% 


FETCH 


16 BIT DECIMAL TO R 


0E7C 






% 






0E7C 


3D13 




DEC16: 


CLR 


Rl ; 


0E7E 


I05L 






CALR 


GETCH ; 


0E80 


0300 


0030 


LEC16A: 


SUB 


R0,'0' ; 


0E84 


9E07 






RET 


CY : 


0E86 


0B00 


0009 




CP 


R0,9 ; 


0ESA 


9-E0B 






RET 


LOT- ; 


0E3C 


A102 






LD 


R2,R0 ; 


0ESE 


1900 


000A 




MULT 


RR0,10 ; 


0E92 


8121 






ADD 


R1,R2 ; 


0E94 


3E23 






CLR 


R2 ; 


0E96 


B520 






Arc 


R0,R2 J 


0E98 


9E0E 






RET 


hi : 


0E9A 


D06B 






CALR 


GETCH ; 


0E9C 


9E06 






RET 


zr ; 


0E9E 


0B00 


0031 




CP 


R0,'=' ; 


0EA2 


9E06 






RET 


zr ; 


0EA4 


LF87 






CALR 


comma ; 


0EA6 


9E06 






RET 


zr ; 


0EA3 


E8EB 






JR 


IEC16A : 


0EAA 






% 






0EAA 






% 


FETCH 


4 BIT DECIMAL TO Rl 


0EAA 






% 






0EAA 


1018 




ESC4: 


CALR 


DEC16 ; 


0EAC 


A112 






LI 


R2,R1 ; 


0EAE 


0702 


FFF0 




AND 


R2,MU12 ; 


0EB2 


9E08 






RET 




0EI4 






% 






0EB4 






% 


PUT Rl 


SPACES TO (R8) 


0EB4 






% 






0FB4 


2100 


0020 


PUTSP: 


II 


R0,' ' ; 


0EB3 


I03B 






CALR 


putce ; 


0EBA 


AB10 






IEC 


ri,i ; 


0EBC 


EEEB 






JR 


NZ, putsp ; 


03BE 


9E03 






RET 


• 


0EC0 






% 







FROM (R14) TO CR , =, OR COMMA 



FROM (R14) TO CR, =, CR COMMA 
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0EC0 






% 


PUT Rl 


CHARACTERS FROM R2 TO (R8) 




0SC0 






% 








0EC0 






PUTMS : 








0EC0 


EA21 


0180 




LIIRB R8^,R2' x f Ri; 




0EC4 


9E03 






RET; 






0EC6 






% 








0EC6 






% 


PUT PC= 


=XXXX TO (RS) 




0EC6 






% 








0EC6 


2101 


0003 


PUTPC: 


LB 


Rl,3 ; 






0ECA 


7602 


0159 




LB 


R2,~PCMS 






0ECE 


B003 






CALR 


PUTMS ; 






0EL0 


6101 


4084 




LD 


ri,uspc ; 






0EB4 


B057 






CALR 


PUTE4 ; 


- 




0EB6 


9E03 






RET 








0EB8 






% 








0ED8 






% 


REGISTER IN R13=(R23) TO (R3) 




0EB3 






% 








0EB8 


0B0C 


000A 


PUTRG: 


CP 


R12,10 ; 




0EDC 


E707 






JR 


CY, PUTRA 






0EDE 


2100 


0031 




LB 


R0,'i' ; 






0EE2 


B050 






CAER 


PUTCH 






0EE4 


A1C0 






LB 


R0,R12 ; 






0EE6 


0100 


0026 




ABB 


R0,'0'-i0 ; 






0EEA 


E606 






JR 


PUTRB 






0EEC 


2100 


0020 


PUTRA: 


LB 


R0,' ' ; 






0EF0 


B057 






CALR 


PUTCH 






0EF2 


A1C0 






LB 


R0,R12 






0EI4 


0100 


0030 




ABB 


R0,'0' ; 






0EF8 


B05B 




PUTRB; 


CALR 


PUTCH 






0EFA 


2100 


003D 




LB 


R0,'=' ; 






0EFE 


B05E 






CALR 


PUTCH 






0F00 


21B1 






LB 


R1,R13~ 






0F02 


5E08 


0E28 




JP 


PUTH4 






0F06 






% 








0F06 






% 


FLAG REGISTER TO (R8) CZSPBH 




0F06 






% 








0F06 


760E 


0153 


PUTFL: 


LB 


R14,~FCWL 






0F0A 


6101 


4032 




LB 


R1,USFCW 






0F0E 


B319 


0008 




SLA 


Rl f 8 






0F12 


2103 


0006 




LB 


R3,6 






0F16 


B0AF 




PUTFA: 


CALR 


NEXCH 


• 
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0F18 


D06B 






CALR 


PUTCE 




1 


0F1A 


2100 


0018 




LB 


R0,'0'/2 


» 


0F1E 


B310 




> 


RL 


Rl,l 


j 


01 20 


B500 






ABC 


R0,R0 


• 

> 


0E22 


D070 






CALR 


PUTCH 


• 


0124 


FB06 






I'BJNZ 


RL3,PUTFAJ 




0F26 


9E08 






RET 




J 


0F23 






% 








0F28 






% 


FETCH 


FILE NAME AND 


ABBRESS 


0F2S 






% 








0F23 


6305 


400C 


LBSVE: 


RES 


CTLWB,TRMBE 






0F2C 


D114 






CALR 


FNAME 






0I2E 


0501 


0001 




OR 


Rl,l 






0F32 


9308 






ret; 






0F34 






LDSV1: 








0F34 


9E07 






RET 


CY 






0F36 


BFB0 






CALR 


COMMA 








9E0E 






RET 


NZ 






0F3A 


B0B0 






CALR 


EEX16 






0F3C 


6F01 


4030 




LB 


TRINC,R1 






0F40 


8B00 






CP 


R0,R0 






0F42 


9E08 






RET 








0F44 






% 








0F44 






% 


SAVE USER REGISTERS 




0F44 






% 








0F44 


5C09 


000E 4036 


SAVER: 


LBM 


U0,R0,15 




_ .. <»? 


0F4A 


97F3 






POP 


R3,R15~ 




;,W* A £^ 


0F4C 


97F2 






POP 


R2,R15~ " 




; <j&vr 


0F4E 


95F4 






POPL 


RR4,R15~ 




Af-^" 


0F50 


5L04 


4082 




LBL 


USFCW,RR4 






0F54 


A74E 






BIT 


R4,14 






0F56 


EE04 






JR 


NZ, SAVERA 




%FR0M S 


0F58 


7B0? 






IBCTL 


R0,NSPOFF 






0F5A 


6i00 


40A4 




LB 


U15,R0 






0FEE 


1E38 






J? 


R3~ 






0F60 


6F0F 


40A4 


SAVERA: 


LB 


U15,R15 






0F64 


760F 


401)0 




LB 


R15,~STACK 






0F63 


IE 38 






JP 


R3~ 


i 


0F6A 






% 








0F6A 






% 


DISPLAY PC=XXXX FOR 


BREAKPOINT 


0F6A 






% 











y 



rt <r 



,ac 



SYSTEM MODE 
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0F6A 


7608 


400E 


BRKDI 


S: LD 


R6, KEYED 


0F6E 


D055 






CALR 


PUTPC 


0F70 


7602 


014C 




LD 


R2,~NIMS 


0F74 


2101 


0004 




LD 


Rl,4 


0F78 


D05D 






CALR 


PUTMS 


0F7A 


6102 


4034 




LD 


R2.USPC 


0F7E 


2121 






LD 


R1,R2~ 


0180 


D0AD 






CALR 


PUTH4 


0F32 


D09D 






CALR 


CRLF 


0F84 


2101 


0011 




LD 


R13,l? 


0F88 


760E 


400F 




LD 


R14,~KEYED 


0F8C 


D133 






CALR 


CONOUT 


0F6E 


9E08 






RET 




0F90 






% 






0F90 






% 






0F90 






% 






0*90 






% 






0F96 






RESET 


RECVE SWITCH: 


0F90 


4D05 


4000 0E44 




LDA 


CHDEST,PUTCa; 


0F96 


9E08 






ret; 




0F93 






% 






0F96 






COMMA 


: 




0F98 


0B00 


002C 




CP 


R0,V; 


0F9C 


9108 






ret; 




0FSE 






% 






0F9E 






% 






0F9E 






% 


FILE 


FORMAT COKTROL BYTE 


0F9E 






% 






0F9E 






CONST 






0F9E 








SET USER PC = 1, 


0F9E 








SET DEST ADR = 2, 


0F9E 








SETJTEXT = 3J 


0F9E 






% 






0F9E 






NEXT_ 


RECORD: 




0F9E 


IF 16 






CALR 


nxt_byte; 


0FA0 






RFAD_ 


BIN: 




0FA0 


8 A 06 


0101 




CPB 


RL0,SET USER PC; 


0FA4 


FE07 






JR 


NE,RD EINi; 


0FA6 


IFDC 






CALR 


n>xt byte; 


0FA8 


6E0S 


4064 




LDB 


USPC t RL0; 


0JAC 


LFLF 






CALR 


mxt byte; 



% RESET CO-ROUTINE SWITCH 
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0FAE 
0FB2 
0FB4 
0FB4 
0FB6 
0FBA 
0FBC 
0FC0 
0FC2 
0FG6 
0FC6 
0FC8 
0FCC 
0FCE 
0FB0 
0FD4 
0FB4 
0FB6 

PM 
0FDC 
0FF0 
0FS4 
0FE6 
0FE6 
0FE3 
0IEE 
0FF0 
0FF0 
0FF0 
0FF4 
0FF4 
0FF6 
0FI6 
0FF6 
0FFE 
1000 
1000 
1000 
4000 
4000 
4.002 



6E03 4035 
E8F5 

0A03 0202 

EE07 

BFE6 

6E03 4004 

DFE9 

6E08 4005 

E8EB 

0A08 0303 

SE0B 
BFF0 
6E08 4002 

BFF3 

6102 4004 
2E23 

6900 4004 
6A00 4002 
EEF7 
Jfci8DB 

4D05 4000 0FF4 

9E08 



57F0 4000 

9E03 

A1B1 



RD BINil: 



RB BIN2: 



RB BIN3: 



RD BIN4: 



LDB 
JR 

CPB 

JR 

CALR 

LBB 

CALR 

LBB 

JR 

CPB 
JR 
CALR 
LBB 

CALR 

LB 

LBB 

INC 

BECB 

JR 

JR 

LBA 

ret; 



% 
NXT_BYTE: 

POP 

do-nothing: 
ret; 
% 



uspc(i),rl0; 
next_record; 

rl0,set_dest adr; 

NE,RB_BIN2; 

nxt_byte; 
dest_abr,rl0; 
nxt_byte; 
eest_abr(1),rl0; 
next record; 

rl0,set_text; 

NE,RD_BIN4; 

nxt_byte; 

COUNT, RL05 

nxt_byte; 
R2,best_adr; 

R2~,RL0; 
BEST_ABR,i; 
COUNT, i; 
NZ,RD_BIN3; 

next_record; 
cbdest,do nothing? 



CHBEST,R15~; 



% 



STATE: 
CHBEST 
COUNT: 



ORIGIN $(256 - 2 - LOW $); 
WORD: PROM ID; 



ORIGIN LATA 



WORD 
WORD 



(i); 
(i); 



% CO-ROUTINE ENTRY POINT 
% # BYTES TO BE TRANSFERED 
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4004 

4006 
400C 
400S 
4060 
40 6 E 
4070 
40 7 C 
407E 
4060 
4062 
4034 
4086 
4068 
408A 
408C 
40 3E 
4090 
4092 
4094 
4096 
4098 
40 9 A 
409C 
409E 
40 A0 
40A2 
40A4 
40 A6 
40 B A 
40BA 
40 E0 
40D0 



DEST ALR: WORD 


(i); 


OLD STA 


TE: WORD 


(3); 


CTLWD: 


WORD 


(l) 


KEYBD: 


WORD 


(41) 


FILNM: 


WORD 


(7) 


LED?: 


WORD 


(1) 


BRKTAB: 


WORD 


(6) 


TRCNT: 


WORD 


(1) 


TRDIS: 


WORD 


(1) 


TRINC: 


WORD 


(1) 


USFCW: 


WORD 


(1) 


USPC: 


WORD 


(1) 


U0: 




WORD 


(1) 


Ul: 




WORD 


(1) 


U2: 




WORD 


(1) 


U3: 




WORD 


(1) 


U4< 




WORD 


(1) 


U5 




WORD 


(1) 


U6: 




WORD 


(1) 


U7 




WORD 


(1) 


U8: 




WORD 


(1) 


U9: 




WORD 


(1) 


U10: 


WORD 


(1) 


Ull: 


WORD 


(1) 


U12: 


WORD 


(1) 


U13: 


WORD 


(1) 


U14: 


WORD 


(1) 


U15: 


WORD 


(1) 




WORD 


(10) 


USRSTI: 


WORD 


(0) 




WORD 


(U) 


STACK: 


WORD 


(0) 






END. 





% DESTINATION ADDRESS 



% 



10UTINE RECOVERY INFO 



%CONSQLE I/O SWITCH CONTROL 
%KEYBOARD BUFFER 
fcSJTSTEM 8/3 FILE NAME 
%LED CURRENT DISPLAY PORT 
^BREAKPOINT TABLE 
%TEACE INSTRUCTION COUNT 
&TRACE DISPLAY INTERVAL 
&TRACE DISPLAY COUNT 
%USER FLAG CONTROL WORD 
%USER PROGRAM COUNTER 
%USER REGISTER SAVE AREA 



%USER STACK AREA 
%SYSTEM STACK 




Am96/4016 



AmZ8000 Evaluation Board 



Monitor Listing 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



% 



% 



% 



MODULE 


'EVMTR'J 


TITLE 


'4016 EVALUATION 


CONST 


PROM ID = #A1B1J 


PAGE 


41 


CONST 


CPT=0FE8H 


CONST 


SPT=0FECH 


CONST 


PPT=0FF0H 


CONST 


LPT^0FD3H 


CONST 


KPI=0FE0H 


CONST 


vv n=onp"nr«n 


CONST 


STP=0FD8H 


CONST 


BKP=0FD4H 


CONST 


TPT-0FE4H 


CONST 


TMD1=76H 


CONST 


TMD2=0B6H 


CONST 


RT96=13 


CONST 


RT 24=52 


CONST 


RT30=41? 


CONST 


RT11=1136 


CONST 


CR=0DH 


CONST 


LF=0AH 


CONST 


ESC=1BH 


CONST 


DEL=?FH 


CONST 


CAN=18H 


CONST 


BSP=08H 


CONST 


ACK=06H 


CONST 


NAK=15H 


CONST 


ENQ=05H 


CONST 


SOE=01H 


CONST 


STX=02H 


CONST 


EOT=04H 


CONST 


USERP=1000H 


CONST 


DATA=4000H 


CONST 


SMDE=0CEH 


CONST 


SCMD=27E 


CONST 


PMDE=83H 


CONST 


SYMDE=4000H 


CONST 


CRTSW=0 



BOARD MONITOR VI. 1'; 

% PROM ID - IN LAST BYTE OF TWO PROMS 

^CONSOLE PORT 

"/•SERIAL UP/DOWN PORT 

^PARALLEL UP/DOWN PORT 

#LED DISPLAY PORT(BASE) 

^KEYBOARD PORT( INPUT) 
^vpvTjn«i>T\ vn-on* tr\rtn>'Dnni\ 

•%STEP CONTROL PORT 
^BREAKPOINT REGISTER 
#TIMER PORT 
#TIMER 1 MODE 
XTIMER 2 MODE 
#TIMER RATE FOR 9600 
#TIMER RATE FOR 2400 
•4TIMER RATE FOR 300 
^TIMiS RATE FOR 110 

^CARRIAGE RETURN 

#LINE FEED 

^ESCAPE 

^CHARACTER DELETE 

#LINE CANCEL 

^BACKSPACE 

^ACKNOWLEDGE 

#NOT ACKNOWLEDGE 

^ENQUIRY 

#START OF HEADER 

#START OF TEXT 

#END OF TRANSMISSION 

;#USER PROM ADDRESS (ASSEMBLER) 

;%DATA STORAGE AREA 

5%SERIAL PORT MODE 

^SERIAL PORT COMMAND 

^PARALLEL PORT MODE 

J^SYSTEM MODE FLAG CONTROL WORD 

P/*SET IF LED/KBD AVAILABLE LOCALLY 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0002 
0004 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
000A 
000E 
0012 
0016 
001A 
001E 



0000 
4000 
01A2 



2020 
5676 
3A2A 
4666 
5B5D 
5272 
0000 



2020 
1600 
0000 
0600 
IBID 
1200 
0000 



% 



% 
MACRO 



% 
% 
% 
% 
% 
% 
CHTAB 



CONST CNOSW=l 

CONST RM0SW=3 

CONST TRMDE=5 

CONST STPFLG=6 

CONST M3=7 

CONST M4=0FH 

CONST M5=1FH 

CONST M7=7FH 

CONST MS=0FFH 

CONST MU4-0F000H 

CONST MU8=0FF00H 

CONST MU12=0FFF0E 

CONST MU13=0FFF8H 

CONST MU15=0FFFEH 

LDA DST,SRC; 

BEGIN 

WORD: 



;°/ol=LOCAL CONSOLE OUTPUT, 2=REM0TE 
J°A=REMOTE OUTPUT PARALLEL, 2=SERIAL 
J^SET IF STEP MODE PERMITTED 
J#SET IF IN STEP MODE 

^VARIOUS MASKS 



end; 



WORD: 
WORD: 
WORD: 



#4D05 f 

DST, 

SRC? 





STMDE 

INIT 



% LD DA,IM 
% DA 
% IM 



CHARACTER IS BITS 0-2 STROBE 

3 SHIFT 

4 CONTROL 
5-7 INPUT 



BYTE: 
BYTE: 
BYTE: 
BYTE: 
BYTE: 
BYTE: 
BYTE: 



55H,76H,16H,0 
3AH,2AH,0,0 ;°/« 

45H,66H,06E,0 ;% 
5BH,5DH,1BH,1DH \% 
52H,72H,12H,0 t% 



;% SPACE 
F 

[] 

R 



0,0,0,0 



;% BREAK 
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0022 


3626 


0000 


0026 


2E3F 


0000 


002A 


4363 


0300 


002E 


3B2B 


0000 


0032 


4464 


0400 


0036 


5070 


1000 


003A 


4565 


0500 


003E 


4060 


0000 


0042 


3525 


0000 


0046 




0000 


004A 


5878 


1800 


&04E 


4C6G 


0G00 


0052 


5373 


1300 


0056 


4F6F 


0F00 


005A 


5777 


1700 


00 5E 


2D3P 


0000 


0062 


3424 


0000 


mee 


2C3C 


0000 


006A 


5A7A 


1A00 


006E 


4B6B 


0B00 


0072 


4161 


0100 


0076 


4969 


0900 


007A 


5171 


1100 


007E 


3000 


0000 


0082 


3323 


0000 


0086 


4D6D 


0D00 


008A 


0000 


0000 


008E 


4A6A 


0A00 


0092 


0000 


0000 


0096 


5575 


1500 


009A 


0000 


0000 


009E 


3929 


0000 


00A2 


3222 


0000 


00A6 


4E6E 


0E00 


00AA 


0D0D 


0D0D 


00AE 


4868 


0800 


00B2 


0A0A 


0A0A 


00B6 


5979 


1900 


00BA 


0909 


0909 


00BE 


3828 


0000 


00C2 


3121 


0000 



BYTE 


: 36E,26E,0,0 


?< 


6& 


BYTE 


: 2FE,3FH,0,0 


;% 


/? 


BYTE 


i 43E,63H t 03E,0 


;% 


C 


BYTE 


: 3BH,2BE,0,0 


\% 


;+ 


BYTE 


I 44E,64E,04E,0 


)% 


D 


BYTE 


: 50E,70H,10H,0 


\% 


p 


BYTE 


J 45E,65E,05E,0 


\% 


E 


BYTE 


J 40E,60E,0,0 ; 


\% 


(T 


BYTE 


: 35E,25E,0,0 


\% 


5% 


■DVTT. 


» ecu t-ptj a a. 


»•/ 


V 


hi ij^i 


> «~.UJJ. »«JXJH ,</ f V 


t /• 


• ■■'■ 


BYTE 


\ 58E,78E,18E,0 \ 


;* 


X 


BYTE 


\ 4CH,6CH,0CE,0 


\'% 


L - 


BYTE 


i 53E f 73S,13E,0 


)% 


S 


BYTE 


: 4FE,6FE,0FE,0 


\% 





BYTE 


: 57E,77E,17E,0 3 


\% 


¥ 


BYTE 


: 2DE,3DE,0,0 


;% 


-= 


BYTE 


: 34E,24B,0,0 J 


\% 4$ 


BYTE 




'0/ 


,< 


BYTE' 


\ 5AE,7AE,1AH,0 \ 


;* 


Z 


BYTE: 


\ 4BE,6BB,0BE,0 \ 


'% 


K 


BYTE 


i 41E t 61E,01E,0 j 


\% 


A 


BYTE; 


49E,69E,09E,0 j 


'% 


I 


BYTE: 


51E,71E,11E,0 j 


'% 





BYTE: 


30E, 0,0,0 J 


'% 





BYTE: 


33B,23E,0,0 j 


'% 


3# 


BYTE: 


4DE,6DE,0DE,0 j 


'% 


M 


BYTE: 


0,0,0,0 ; 


>% 


NO KEY 


BYTE: 


4AB,6AE,0AE,0 ; 


'% 


J 


BYTE: 


0,0,0,0 j 


% 


NO KEY 


BYTE: 


55E,75H,15E,0 ; 


'% 


U 


BYTE: 


0,0,0,0 ; 


'% 


LOCK 


BYTE: 


39E,29E,0,0 J 


% 


9). 


BYTE: 


32B,22E,0,0 J 


'% 


2 


BYTE: 


4EE,6EB,0EB,0 ; 


% 


N 


BYTE: 


0DE,0DE,0DE,0DE j 


% 


CARRIAGE RETURN 


BYTE: 


48H,68E,08E,0 J 


% H 


BYTE: 


0AE,0AE,0AE,0AB J 


% 


LINE FEED 


BYTE: 


59E,79E,19E,0 j 


% 


Y 


BYTE: 


09E,09E,09E,09E J 


% 


TAB 


BYTE: 


38E,28E,0,0 J 


% 


8( 


BYTE: 


31S,21H,0,0 J 


% 


1! 
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00C6 
00CA 
00CE 
00D2 
00D6 
00PA 
00PE 
00E2 
00E6 
00E6 
00EC 
00F2 
00F6 
00FC 
0102 
0104 
0104 
0104 
0104 
0106 
0108 
010A 
010C 
010E 
0110 
0112 
0114 
0116 
0118 
0118 
011E 
0124 
012A 
012A 
012C 
012E 
0130 
0132 
0134 
0136 
0138 



4262 

0000 

4767 

5F5E 
5474 
087F 
3727 
1B1B 



0200 
0000 
0700 
1F1E 
1400 
087F 
0000 
1B1B 



4D49 5353 494E 
4720 4649 4C45 
204F 5220 
4449 534B 2049 
2F4F 2045 5252 
0D0A 



4000 
0728 
4000 
0728 
4000 
077E 
4000 
0728 
4000 
0738 

4243 4445 4647 
484D 4E50 5253 
5456 585A 0D00 

02DE 
032E 
0354 
0320 
03E6 
065C 
0410 
0416 



MISER: 



BYTE: 42H,62H,02H,0 

BYTE: 0,0,0,0 

BYTE: 47H,67H,07H,0 

BYTE: 5FH,5EH,1FH,1EH 

BYTE: 54H,74H,14H,0 

BYTE: 08H,7FH,08H,7FE 

BYTE: 37H,27H,0,0 

BYTE: 1BH,1BH,1BH,1BH 

BYTE: 'MISSING FILE OR 



% B 

% NO KEY 

% G 

% _ 
% T 

% BACKSPACE/DELETE 

% 7' 

ESCAPE 



DSKER: BYTE: 'DISK I/O ERR',CR,LF 



CONST 
CONST 

% 

STAREA: WORD: 
WORD: 
WORD: 
WORD: 
WORD: 
WORD: 
WORD: 
WORD: 
WORD: 
WORD: 



MISERL=$-MISER J 
DSKERL=$-DSKER J 

SYMDE 

US ERR 

SYMDE 

US ERR 

SYMDE 

SYSCAL 

SYMDE 

US ERR 

SYMDE 

STPRTN 



% 

CMDLST: BYTE: 'BCDEFGHMNPRSTVXZ' ,CR,0J 



^SYSTEM CALL 



^NON-MASKABLE INTERRUPT (STEP CONTROL) 



ORIGIN $(LOW $ AND 1) 



CMDADD: WORD: 


SETBRK 


WORD: 


SETCRY 


WORD: 


SETDAJ 


WORD: 


EXBRK 


WORD: 


FILMEM 


WORD: 


XECTE 


WORD: 


SETHLF 


WORD: 


MOVE 



;#SET BREAKPOINTS AND GO 

;#SET CARRY FLAG 

; o /SET DECIMAL ADJUST FLAG 

;#SET HARDWARE BREAKPOINT 

;%FILL MEMORY 

?#GO TO PC OR SPECIFIED ADDRESS 

J#SET HALF CARRY FLAG 

J^MOVE MEMORY 



OR DISPLAY MEMORY 
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013A 
013C 
013E 
0140 
0142 
0144 
0146 
0148 
014A 
014C 
014C 
0150 
0153 
0159 
015C 
015F 
0162 
0165 
016B 
0171 
0175 
0175 
017B 
0181 
0185 
0185 
018B 
0191 
0194 
0194 
019A 
01A0 
01A1 
01A1 
01A1 
01A2 
01A6 
01A8 
01AC 
01AE 
01B2 



0454 
0460 
0480 
04EA 
055E 
05B2 
05BA 
0654 
0770 

204E 4931) 
0820 08 

435A 5350 4448 
5043 3D 
230D 0A 
2A0D 0A 
3F0D 0A 

4C4F 4144 2043 
4F4D 504C 4554 
4544 0D0A 

5341 5645 2043 
4F4D 504C 4554 
4544 0D0A 

5052 4F47 5241 
4D20 4552 524F 
520D 0A 

5052 4F47 5241 
4D20 4558 4954 
20 



2100 BC00 
7D0B 

7600 0100 
7D0D 

2100 0076 
3B06 0FE7 



% 

NIMS: 
BSPMS : 
FCWL : 
PCMS: 
CNMSG: 
PRMSG: 
ERMSG: 
LODCM: 



DMSG: 

USERM: 

USEXT: 

% 
INIT: 



WORD: 
WORD: 
WORD: 
WORD: 
WORD: 
WORD: 
WORD: 
WORD: 
WORD: 

BTTE: 
BYTE: 
BYTE: 
BYTE: 
BYTE: 
BYTE: 
BYTE: 
BYTE: 



CONST 
BYTE: 



CONST 
BYTE: 



CONST 
BYTE: 



UMODE 

SETPAR 

SETREG 

SETSGN 

TRACE 

SETOVF 

DISREG 

SETZRO 

STEP 



;#SET USER NORMAL MODE 

;#SET PARITY FLAG OR PC ADDRESS 

;#SET REGISTER CONTENT 

J#SET SIGN FLAG OR SUBSTITUTE MEMORY 

^EXECUTE WITH TRACK 

;#SET OVERFLOW FLAG 

^DISPLAY REGISTERS 

J#SET ZERO FLAG 

^EXECUTE STEP MODE 



Ni = 
BSP,' ',BSP 
'CZSPDH' 
'PC = ' 
'#',CR,LF 
'*',CR,LF 
'?',CR,LF 
'LOAD COMPLETED', CR,LF 



LODCML=$-LODCM J 

'SAVE COMPLETED', CR,LF J 



DMSGL=$-DMSG J 
'PROGRAM ERROR ',CR,LF 



US ERML=$ -USERM ,* 
'PROGRAM EXIT ' J 



CONST USEXTL=$-USEXT 

ORIGIN $(LOW $ AND 1) 

LD R0,8000E+30*512 

LDCTL REFRESH, R0 

LD R0,~STAREA(-4) 

LDCTL PSAPOFF.R0 

LD R0,TMD1 

OUT TPT+3,R0 



#MODE TIMER 1 
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01B6 


2100 


00B6 




LD 


R0.TMD2 


01BA 


3B06 


0FE7 




OUT 


TPT+3,R0 


01BE 


3B34 


0FE0 




IN 


R3 ,KPI 


01C2 


2101 


0001* 




LD 


R1.RT96 


01C6 


3B16 


0FE6 




OUT 


TPT+2,R1 


01CA 


AC91 






EXB 


RE1,RL1 


01CC 


3B16 


0FE6 




OUT 


TPT-2,R1 


01D0 


AC91 






EXB 


RH1.HL1 


01D2 


2102 


0034 




LD 


R2,RT24 


01D6 


A73? 






BIT 


R3,7 


01D8 


EE04 






JR 


NZ,CKHIGH 


01DA 


2101 


01A1 




LD 


Rl ,RT30 


01DE 


2102 


0470 




LD 


R2,RT11 


01152 


A736 




CKFIGH: 


BIT 


R3,6 


01E4 


EE01 






JR 


NZ , STBAUD 


01*6 


AP21 






EX 


R1,R2 


01E8 


3B16 


0FE5 


STBAUD: 


OUT 


TPT+1,R1 


01EC 


AC91 






EXB 


RH1,RL1 


01S!5 


3B16 


0FE5 




OUT 


TPT+1.R1 


01F2 


2100 


00CE 




LD 


R0,SMDE 


01F6 


2101 


0027 




LD 


Rl ,SCMD 


01FA 


3B06 


0FE9 




OUT 


CPT-l t R0 


01FE 


3B16 


0FE9 




OUT 


CPT+1,R1 


0202 


3B06 


0FED 


.. ."jt" 


OUT 


SPT+1,R0 


0206 


3B16 


0FED 


rf f^ 'J' 


OUT 


SPT^l.Bl 


020A 


2100 


0083 4— K^f, 


'\ V kM .v"^ 


LD 


R0,PMDE 


020E 


3B06 


0FF3 Y>' 


..: t 1 V 


OUT 


PPT+3 >f R0 


0212 


4D08 


400C C V 


I <- 


CLR 


CTLWD 


0216 


A735 






BIT 


R3,5 


0218 


EE04 






JR 


NZ , SETUPC 


021A 


6501 


400C 




SET 


CTLWD,CNOSW 


021E 


6500 


400C 




SET 


CTLWD, CRTSW 


0222 


4D05 


4084 1000 


SETUPC: 


LD 


USPCUSERP 


0228 


4D08 


4082 




CLR 


USFCW 


022C 


760F 


40D0 




LD 


R15 t "STACK 


0230 


7600 


40BA 




LD 


R0,~USRSTK 


0234 


6F00 


40A4 




LD 


U15,R0 


0238 


4D05 


406E 0FD3 




LD 


LEDP,LPT 


023E 


D958 






CALR 


RESET RECVE 


0240 


760E 


015F 


PROMPT: 


LD 


R14,~PRMSG 


0244 


210D 


0003 


DISERA: 


LD 


R13,3 



SWITCH 



#MODE TIMER 2 

%TIMER 2 LSB (UP/DOWN LOAD PORT) 
tfTIMER 2 MSB 



^TIMER 1 LSB (CRT PORT) 
tfTIMER 1 MSB 

^ENABLE 9551 CONSOLE 
ENABLE 9551 UP/DOWN 

^ENABLE 9555 UP/DOWN 



#SET CONSOLE OUTPUT LOCAL 
#SET KETBOARD/LED FLAG 
#SET DEFAULT USER PC 
#SET DEFAULT USER FCW 
#SET MONITOR STACK 
%SET DEFAULT USER STACK 



l ! 



#SET LED DISPLAY AT HOME 
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0248 


DA91 




DISER: 


CALR 


CONOUT 


024A 


DB36 




RDKBD: 


CALR 


CONIN 


024C 






PROD: 






024C 


2102 


2020 




LD R2, 


» 


0250 


A123 






LD 


R3,R2 


0252 


DA47 






CALR 


GETCH 


0254 


0B00 


001B 




CP 


R0,ESC 


0258 


EE01 






JR 


NZ, TESTCR 


025A 


DA4B 






CALR 


GETCH 


025c 


0B00 


000D 


TESTCR: 


CJf 


K0,CR 


0260 


■we !"!•» 






TTI 


ZR, DECPOS 


0262 


A131 






LD 


R1,R3 


0264 


0701 


00FF 




AND 


R1,M8 


0268 


0B01 


0020 




CP 


Rl,' ' 


026C 


EE1E 






JR 


NZ , RESKBD 


026E 


B325 


F7F8 




SRLL 


RR2,8 


0272 


B301 


0008 




SLL 


R0,8 


0276 


8502 






OR 


R2.R0 


0278 


DA60 






CALR 


NEXCH 


027A 


0B00 


0020 




CP 


R0,' ' 


027E 


EEEE 






JR 


NZ, TESTCR 


0280 


ABE0 




DECPOS: 


DEC 


R14,l 


0282 


1002 


4D53 4120 




CPL 


RR2,'MSA * 


0288 


5E06 


0672 




JP 


ZR,XASM 


028C 


1002 


4441 4F4C 




CPL 


RR2/DA0L' 


0292 


5E06 


0698 




JP 


ZR,XLOAD 


0296 


1002 


5250 444C 




CPL 


RR2/RPDL' 


029C 


5E06 


067E 




JP 


zr,xldpr; 


02A0 


1002 


4556 4153 




CPL 


RR2 , 'EVAS ' 


02A6 


5E06 


06E4 




JP 


ZR,XSAVE 


02AA 


760E 


400E 


RESKBD: 


LD 


R14,~KEYBD 


02AE 


DA75 






CALR 


GETCE 


02B0 


0B00 


001B 




CP 


R0,ESC 


02B4 


EE01 






JR 


NZ, SAVPOS 


02B6 


DA79 






CALR 


GETCH 


02B8 


93FE 




SAVPOS: 


PUSH 


R15~R14 


02BA 


760E 


0118 




LD 


R14, CMDLST 


02BE 


7601 


0128 




LD 


Rl,""CMDADD(-2) 


02C2 


A102 






LD 


R2,R0 


02C4 


A911 




CMDTLP: 


INC 


Rl,2 


02C6 


DA87 






CALR 


NEXCH 



^PROMPT 

?#GET COMMAND (KETBD ADDRESS IN R14) 



#CLEAR ASSEMBLY 



%md ON CR 



^ASSEMBLY OVERFLOW 



#NEXT CHARACTER 



^ASSEMBLER REQUEST 

#LOAD FROM SYSTEM 8 
% "LDPR" 



#SAVE ON SYSTEM 8 

#CHECK SINGLE LETTER COMMANDS 
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02C8 


8D04 






TEST 


R0 


02CA 


E605 






JR 


ZR, CMDPOP 


02CC 


8B20 






CP 


R0,R2 


02CE 


EEFA 






JR 


NZ,CMDTLP 


02D0 


97FE 






POP 


R14 »R1 5 


02D2 


2112 






LD 


R2.R1~ 


02P4 


1E28 






JP 


R2 


02D6 


97FE 




CMDPOP: 


POP 


R14,R15~ 


02D8 


760E 


0162 


CMDER: 


LD 


R14,~ERMSG 


02DC 


E8B3 






JR 


DISERA 


02DE 






% 






02DE 






% 


SET BREAKP0INT(l-3) 


02DE 






% 






02DE 


8DB8 




SETBRK: 


CLR 


Rll 


02E0 


8DC8 






CLR 


R12 


02E2 


DA89 




SETBA: 


CALR 


HEX TST 


02E4 


A1CD 






LD 


R13,R12 


02E6 


A1BC 






LD 


HI 2, Rll 


02E8 


A310 






RES 


R1,0 


02EA 


A11B 






LD 


R11,R1 


02EC 


0B00 


000D 




CP 


R0,CR 


02F0 


E603 






JR 


ZR, SETBB 


02F2 


8DD4 






TEST 


R13 


02F4 


EEF1 






JR 


NZ, CMDER 


02F6 


E8F5 






JR 


SETBA 


02F8 


2100 


0003 


SETBB: 


LD 


R0,3 


02FC 


7601 


4070 




LD 


Rl ~BRKTAB 


0300 


2F1B 




SETBC: 


LD 


Rl ,R11 


0302 


A911 






INC 


Rl,2 


0304 


8DB4 






TEST 


Rll 


0306 


E604 






JR 


ZR,SETBD 


0308 


21B2 






LD 


R2.R11~ 


030A 


2F12 






LD 


Rl .R2 


030C 


0DB5 


7FFF 




LD 


Rll ,7FFFH 


0310 


A911 




SETBD: 


INC 


Rl,2 


0312 


A1CB 






LD 


R11,R12 


0314 


A1DC 






LD 


R12,R13 


0316 


F80C 






DBJNZ 


RL0, SETBC 


0318 


6505 


400C 




SET 


CTLWD,TRMDE 


031C 


DA 64 




SETBE: 


CALR 


RESTR 


031E 


7B00 






IRET 





^EXECUTE SINGLE LETTER COMMAND 



i^PUT QUESTION PROMPT 



tfFETCH BREAKPOINT ADDRESS 



#SAVE ADDRESS 



#SAVE CONTENT 
#STUFF SYSTEM CALL 



%LOOP FOR 3 BREAKPOINTS 
^RESTORE USER REGISTERS 
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0320 






0320 






0320 






0320 


DAA8 




0322 


DE4D 




0324 


3B16 


0FD4 


0328 


6505 


400C 


032C 


E811 




032E 






/»*• ^V^!» 






\DOCh 












032E 


2102 


0007 


0332 


DA8F 




0334 


EED1 




0336 


2100 


0001 


033A 


B303 


0200 


033E 


8D00 




0340 


B313 


0200 


0344 


6102 


4082 


0348 


8702 




034A 


8512 




034C 


6F02 


4082 


0350 


5E08 


0240 


0354 






0354 






0354 






0354 


93FE 




0356 


MAI 




0358 


97FE 




035A 


2102 


0003 


035E 


E6EB 




0360 






0360 






0360 






0360 


DAC8 




0362 


A11C 




0364 


A3C0 




0366 


A1CD 




0368 


0B00 


000D 


036C 


E606 




036E 


DACF 





% 

% 
% 

EXBRK : 



% 

7* 
% 

SETCRY: 
SETFCW: 

SETFCA: 



SETFCB: 

% 

% 

% 

SETDAJ: 



% 

% 
% 



SET HARDWARE BREAKPOINT - E COMMAND 



CALR EEX_TST 

CALR CR CHKJ 

OUT BKP.R1 

SET CTL¥D,TRMDE 

JR SETFCB 



DJ5T MR.B.XLI 



FLAG (OR CLEAR) 



- u uuhhanu 



LD 

CALR 

JR 

LD 

SDL 

COM 

SDL 

LD 

AND 

OR 

LD 

JP 



R2,7 - 

GETBIT 

NZ,CMDER 

R0,1 

R0 f R2 

R0 

R1,R2 

R2 f USFCW 

R2,R0 

R2,R1 

USFCW,R2 

PROMPT 



SET DECIMAL ADJUST (OR CLEAR) - D COMMAND 



PUSH 
CALR 
POP 

LD 
JR 



R15 f R14 

GETBIT 

R14,R15~ 

R2,3 

ZR, SETFCA 



DISPLAY MEMORY WORDS IN HEX AND ASCII - D COMMAND 



CALR 

LD 

RES 

LD 

CP 

JR 

CALR 



HEX_TST 

R12,R1 

R12,0 

R13,R12 

R0,CR 

ZR,DISMED 

HEX TST 



#FETCE FROM ADDRESS 



#NO END ADDRESS 
'/.FETCH TO ADDRESS 
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0370 


A11D 




0372 


A3D0 




0374 


DE75 




0376 


8BDC 




0378 


EBAF 




037A 


A9D1 




037C 


A1DA 




037E 


83CA 




0380 


210B 


0010 


0384 


EE05 




0386 


6700 


400C 


038A 


E6E2 




038C 


5E08 


024 A 


0390 


8BBA 




0392 


EF01 




0394 


A1AB 




0396 


A1BA 




0398 


A1CE 




039A 


7608 


400E 


039E 


A1E1 




03A0 


DABD 




03A2 


2101 


0004 


03A6 


DA7A 




03A8 


21C1 




03AA 


A9C1 




03AC 


DAC3 




03AE 


2100 


0020 


03B2 


DAB8 




03B4 


ABA1 




03B6 


EEF8 




03B8 


DB00 




03BA 


0B00 


0020 


03BE 


E703 




03C0 


0B00 


007F 


03C4 


E702 




03C6 


2100 


005F 


03CA 


DAC4 




03CC 


ABB0 




03CE 


EEF4 




03D0 


DAC4 




03D2 


93FD 







LD 


R13.R1 




RES 


R13,0 




CALR 


CR chk; 




CP 


R12,R13 




JR 


LGT,CMDER 


DISMED: 


INC 


R13,2 


DISMEA: 


LD 


R10,R13 




SUB 


R10,R12 




LD 


Rll,16 




JR 


NZ ,DISMEB 


DISMEI: 


BIT 


CTLWD,CRTSW 




JR 


ZR,SETFCB 




JP 


RDOD 


DISMEB: 


CP 


R10,R11 




JR 


NC, DISMEC 




LD 


R11,R10 


DISMEC: 


LD 


R10,R11 




LD 


R14,R12 




LD 


R8 , ~KEYBD 




LD 


R1,R14 




CALR 


PUTH4 




LD 


Rl,4 




CALR 


PUTSP 


DISMEE: 


LD 


R1,R12~ 




INC 


R12,2 




CALR 


PUTH4 




LD 


R0,' ' 




CALR 


PUTCH 




DEC 


R10,2 




JR 


NZ, DISMEE 


DISMEF: 


CALR 


NEXCH 




CP 


R0,' ' 




JR 


CY, DISMEG 




CP 


R0,DEL 




JR 


CY f DISMEH 


DISMEG: 


LD 


R0,' ' 


DISMEH: 


CALR 


PUTCH 




DEC 


Bll.,1 




JR 


NZ, DISMEF 




CALR 


CRLF 




PUSH 


R15~,R13 



#FR0M > TO 
%SET LWA+1 



^ADDRESS TO OUTPUT AREA 
#4 SPACES AFTER ADDRESS 

#HEX DATA TO OUTPUT AREA 



^ASCII DATA TO OUTPUT AREA 
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03D4 


93FE 


03D6 


760E 400E 


03DA 


A18B 


03DC 


83ED 


03BE 


DB5C 


03E0 


97FC 


03E2 


97FD 


03E4 


E8CB 


03E6 




03E6 




03E6 




03E6 


DB0B 


03E8 


AUG 


03EA 


A3C0 


03EC 


A1CD 


03EE 


DA2C 


03F0 


EE54 


03F2 


DB11 


03F4 


0B00 000D 


03F8 


E606 


03FA 


A11D 


03FC 


A3D0 


03FE 


8BDC 


0400 


EB4C 


0402 


DB19 


0404 


DEBE 


0406 


2FC1 


0408 


A9C1 


040A 


8BDC 


040 C 


E3FC 


040E 


E86B 


0410 




0410 




0410 




0410 


2102 0002 


0414 


E88E 


0416 




0416 




0416 




0416 


DB23 


0418 


A11C 



% 
% 
% 

FILMEM: 



FILMA: 



% 

% 

% 

SETHLF 

SETHLA 

% 

% 

% 

MOVE: 



PUSH R15 ,R14 

LD R14,~£EYBD 

LD R13,R8 

SUB R13,R14 

CALR CONOUT 

POP R12,R15~ 

POP R13,R15~ 

JR DISMEA 

FILL MEMORY - F COMMAND 

CALR HExjrsT 

LD R12,R1 

RES R12,0 

LD R13,R12 

CALR COMMA 

JR NZ.CMDERR 

CALR HEX TST 

CP R0,CR 

JR ZR, FILMA 

LD R13,R1 

RES R13 t 

CP R12,R13 

JR LGT,CMDERR 

CALR HEX TST 

CALR CR CHK; 

LD R12",R1 

INC R12,2 

CP R12 t R13 

JR LLE, FILMA 

JR GOPRM 



^DISPLAY DATA LINE 



#LOOP FOR MORE LINES 



#FETCH FIRST (OR ONLY) ADDRESS 



#FETCH SECOND ADDRESS (OR VALUE) 
#ONLY ONE ADDRESS 



#FROM > TO 
°^FETCH VALUE 



%DO FILL 



#LOOP TO END 



SET HALF CARRY FLAGfOR CLEAR) - H COMMAND 



LD 
JR 



R2 f 2 
SETFCW 



MOVE MEMORY - M COMMAND 



CALR 
LD 



EEXJTST 
R12,R1 



J^FETCH FROM ADDRESS 
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041A 


A3C0 




041C 


DA43 




041E 


EE3D 




0420 


DB28 




0422 


A11D 




0424 


A3D0 




0426 


DA48 




0428 


EE38 




042A 


DB2D 




042C 


DEB2 




042E 


8BDC 




0430 


EB34 




0432 


A1D2 




0434 


83 C2 




0436 


8BC1 




0438 


EB06 




043A 


A921 




043C 


B321 


FEFF 


0440 


BBC1 


0210 


0444 


E850 




0446 


8121 




0448 


A921 




044A 


B321 


FEFF 


044E 


BBD9 


0210 


0452 


E849 




0454 






0454 






0454 






0454 


DB48 




0456 


0B00 


004D 


045A 


EE1F 




045C 


8D38 




045E 


E852 




0460 






0460 






0460 






0460 


93FE 




0462 


DB27 




0464 


97FE 




0466 


2102 


0004 


046A 


5E06 


0336 





RES 


R12.0 ; 




CALR 


COMMA » 




JR 


NZ,CMDERR J 




CALR 


HEX TST J 




LD 


R13,R1 ; 




RES 


R13,0 ; 




CALR 


COMMA ; 




JR 


NZ,CMDERR i 




CALR 


HEX TST ; 




CALR 


cr chk; 




CP 


R12,R13 J 




JR 


LGT.CMDERR ; 




LD 


R2,R13 ? 




SUB 


R2,R12 ; 




CP 


R1.R12 ; 




JR 


LGT, MOVEA J 




INC 


R2,2 ; 




SRL 


B2 A 1 „ ? 




LDIR 


Rl ,R12 ,R2 J 




JR 


GOPRM ; 


MOVEA: 


ADD 


R1.B2 ; 




INC 


R2 f 2 ; 




SRL 


hz^i ; 




LDDR 


Rl ,R13 ,R2 ; 




JR 


GOPRM ; 


% 






% 


SET USER NORMAL MODE - NM 


% 






UMODE: 


CALR 


GETCH ; 




CP 


R0,'M' ; 




JR 


NZ,CMDERR ? 




CLR 


R3 ; 


«/ 


JR 


SETMDE ; 


% 


SET PARITY /OVERFLOW FLAG( 


% 






SETPAR: 


PUSH 


R15~ f R14 ; 




CALR 


GETBIT ,' 




POP 


R14,R15~ ; 




LD 


R2,4 ; 


SETPAA: 


JP 


ZR.SETFCA ? 



#FETCH THROUGH ADDRESS 



tfFETCH TO ADDRESS 



- P COMMAND 
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046E 




% 








046E 




% 


SET USER PC ADDRESS - 


P COMMAND 


046E 




% 








046E 


DB55 




CALR 


GETCH 




0470 


0B00 003D 




CP 


R0,'=' 




0474 


EE12 




JR 


NZ, CMDERR 




0476 


DB53 




CALR 


HEX TST 


• 


0478 


DEF8 




CALR 


CR CHK? 




047A 


6F01 4084 




LD 


USPC,R1 


• 
t 


047E 


E833 




JR 


GOPRM 


• 
t 


0480 




% 








0480 


~ 


% 


SET REGISTER CONTENT 


- R COMMAND 


0480 




% 








0480 


93FE 


SETREG: 


PUSH 


R15~,R14 




0482 


DB5F 




CALR 


GETCH 




0484 


8DD8 




CLR 


R13 




0486 


0B00 004C 




CP 


R0,'L' 




048A 


E615 




JR 


ZR, SETBRG 


SLOWER 


048 C 


A5D3 




SET 


RJ3,3 




048E 


0B00 0048 




CP 


R0,'H' 




0492 


E611 




JR 


ZR, SETBRG 


; SUPPER 


0494 


97FE 




POP 


R14,R15~ 




0496 


DFFD 




CALR 


REGVAL 




0498 


E624 




JR 


ZR,SETREA 




049A 


5E08 02D8 


CMDERR: 


JP 


CMDER 




049E 


DAFB 


REGVAL: 


CALR 


DEC4 




04A0 


9E0E 




RET 


NZ 




04A2 


0B00 003D 




CP 


R0,' = ' 




04A6 


9E0E 




RET 


NZ 




04A8 


A11C 




LD 


R12,R1 




04AA 


81CC 




ADD 


R12,R12 




04AC 


DB69 




CALR 


HEX16 




04AE 


9E0E 




RET 


NZ 




04B0 


0B00 000D 




CP 


R0 f CR 




04B4 


9E08 




RET 






04B6 


97F1 


SETBRG: 


POP 


R1,R15~ 




04B8 


D00E 




CALR 


REGVAL 




04BA 


EEEF 




JR 


NZ, CMDERR 




04BC 


A1C0 




LD 


R0,R12 




04BE 


0700 FFF0 




AND 


R0,MU12 




04C2 


EEEB 




JR 


NZ, CMDERR 
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04C4 


A112 


04C6 


0701 FF00 


04CA 


EEE7 


04CC 


61C1 4086 


04D0 


B323 0D00 


04D4 


2100 00FF 


04D8 


B303 0D00 


04DC 


8D00 


04BF 


8701 


04E0 


8521 


04E2 


6FC1 4086 


04E6 


5E08 0240 


04EA 




04EA 




04EA 




04EA 


93FE 


04EC 


DB6C 


04EE 


97FE 


04F0 


2102 0005 


04F4 


5E06 0336 


04F8 




04F8 




04F8 




04F8 


DB9A 


04FA 


0B00 004D 


04FE 


EE07 


0500 


2103 4000 


0504 


DBA0 


0506 


EEC9 


0508 


6F03 4082 


050C 


E8EC 


050E 




050E 




050E 




050E 


ABE0 


0510 


DBA0 


0512 


DF45 


0514 


A11D 


0516 


A3D0 


0518 


7608 400E 


051C 


A1D1 



SETREA: 

GOPRM: 

% 

% 

% 

SETSGN: 



% 

% 

% 



SETMDE: 



% 
% 
% 
SUBST: 



SUBSTA: 



LD R2,R1 

AND R1.MU8 

JR NZ,CMDERR 

LD R1,U0(R12) 

SDL R2 f R13 

LD R0 , M8 

SDL R0,R13 

COM R0 

AND R1,R0 

OR R1,R2 

LD U0(R12),R1 

JP PROMPT 



SET SIGN FLAG(OR CLEAR) - S COMMAND 



PUSE 

CALR 

POP 

LD 

JP 



R15~,R14 

GETBIT 

R14.R15~ 

R2,5 

ZR,SETFCA 



SET USER SYSTEM MODE - SM COMMAND 



CALR 

CP 

JR 

LD 

CALR 

JR 

LD 

JR 



GETCE 

R0,'M' 

NZ, SUBST 

R3 t 4000H 

GETCH 

NZ ,CMDERR 

USFCV,R3 

GOPRM 



SUBSTITUTE MEMORY - S COMMAND 



DEC 

CALR 

CALR 

LD 

RES 

LD 

LD 



R14,l 

HEX__TST 

CR_CHK," 

R13,R1 

R13.0 

R8 f KEYBD 

R1.R13 



J/oFETCH SUSBTITUTE ADDRESS 
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051E 


DB7C 




CALR 


PUTH4 


0520 


2100 


0020 


LD 


R0,' ' 


0524 


DB71 




CALR 


PUTCH 


0526 


21D1 




LD 


R1,R13~ 


0528 


DB81 




CALR 


PUTH4 


052A 


2100 


002B 


LD 


R0,'-' 


052E 


DB76 




CALR 


PUTCH 


0530 


93FD 




PUSH 


R15~,R13 


0532 


760E 


400E 


LD 


R14,~KEYBD 


0536 


Z10D 


000A 


LD 


R13,10 


053A 


DC0A 




CALR 


CONOUT 


053C 


DCAF 




CALR 


CONIN 


053E 


97FD 




POP 


R13,R15~ 


0540 


DBBE 




CALR 


GETCH 


0542 


E60B 




JR 


ZR, SUBSTB 


0544 


0B00 


002E 


CP 


R0,'.' 


0548 


5E06 


0240 


JP 


ZR, PROMPT 


054C 


ABE0 




DEC 


R14,l 


054E 


DBBA 




CALR 


HEX16 


0550 


iiBSo 




JR 


NZ,SUBSTA 


0552 


0B00 


000D 


CP 


R0,CR 


0556 


EEE0 




JR 


NZ.SUBSTA 


0558 


2FD1 




LD 


R13~,R1 


055A 


A9D1 




SUBSTB: INC 


R13,2 


055C 


E8DD 




JR 


SUBSTA 


055E 






% 




055E 






% EXECUTE 


UNDER TRACE 


055E 






% 




055E 


DBCB 




TRACE: CALR 


GETCH 


0560 


41)05 


407C 0001 


TRACA: LD 


TRCNT,1 


0566 


4D05 


407E 0001 


LD 


TRDIS,1 


056C 


4D08 


4080 


CLR 


TRINC 


0570 


E618 




JR 


ZR,TRACB 


0572 


ABE0 




DEC 


R14,l 


0574 


DB7D 




CALR 


DEC16 


0576 


EE13 




JR 


NZ,CMDRR 


0578 


8D14 




TEST 


Rl 


057A 


E611 




JR 


ZR.CMDRR 


057C 


0B00 


003D 


CP 


R0,'=' 


0580 


E60E 




JR 


ZR,CMDRR 


0582 


6F01 


407C 


LD 


TRCNT.R1 



^ADDRESS TO OUTPUT AREA 
#SPACS AFTER ADDRESS 
^CONTENT TO OUTPUT AREA 
^HYPHEN PROMPT 



^DISPLAY LINE 
WETCH RESPONSE 



#CR ONLY IS ADVANCE 

^PERIOD IS TERMINATE 

%GET SUBSTITUTE VALUE 
^IGNORE ERRORS 

#DO SUBSTITUTION 



MODE - T COMMAND 



^DEFAULT ONE INSTRUCTION 

^DEFAULT INTERVAL EVERY INSTRUCTION 



"/-FETCH INSTRUCTION COUNT 
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0586 


0B00 


000D 


058A 


ES0B 




058C 


DB89 




058E 


EE07 




0590 


8D14 




0592 


E605 




0594 


0B00 


000D 


0598 


6F01 


407E 


059C 


E602 




059E 


5E08 


02D8 


05A2 


6505 


400C 


05A6 


6506 


400C 


05AA 


DBAB 




05AC 


3B06 


0FD8 


05B0 


7B00 




05B2 






05B2 






05B2 






05B2 


2102 


0004 


05B6 


5E08 


0332 


05BA 






05BA 






05BA 






05BA 


7608 


400E 


05BE 


DBFD 




05C0 


EE2D 




05C2 


760D 


4086 


05C6 


8DC8 




05C8 


DB82 




05CA 


2101 


0007 


05CE 


DB8E 




05D0 


DB7D 




05D2 


A9D1 




05D4 


2101 


0001 


05D8 


A9C0 




05DA 


0B0C 


0008 


05DE 


EEF7 




05E0 


DBCC 




05E2 


91FC 




05F4 


760E 


400E 


05E8 


210D 


004F 



CMDRR: 
TRACB: 

TRACC: 



% 

% 
% 
SETOVF: 

% 

% 

D°ISREG; 



DISRA 



CP R0,CR 

CALR DEC 16 

JR NZ, CMDRR 

TEST Rl 

JR ZR, CMDRR 

CP R0,CR 

LD TRDIS,R1 

JR ZR, TRACB 

JP CMDER 

SET CTLWD t TRMDE 

SET CTLWD,STPFLG 

CALR RESTR 

OUT STP,R0 

IRET 



^DEFAULT DISPLAY INTERVAL 
#FETCH DISPLAY INTERVAL 



#SET STEP MODE 

^ENABLE ONE INSTRUCTION 



SET PARITY /OVERFLOW FLAG(OR CLEAR) - V COMMAND 



LD 
JP 



R2,4 
SETFCW 



DISPLAY REGISTERS - X COMMAND 



LD 

CALR 

JR 

LD 

CLR 

CALR 

LD 

CALR 

CALR 

INC 

LD 

INC 

CP 

JR 

CALR 

PUSEL 

LD 

LD 



R8, KEYBD 

GETCH 

NZ.DISPRG 

R13.TJ0 

R12 

PUTPC 

Rl,7 

PUTSP 

PUTRG 

R13,2 

Rl,l 

R12,l 

R12.8 

NZ, DISRA 

CRLF 

R15~,RR12 

R14, "KEYBD 

R13,79 



#NOT GENERAL CASE 



#PC=XXXX 



^REGISTERS 0-7 



4016 EVALUATION "BOARD MONITOR V1.1MACRO 8/8000 Z8000 ASSEMBLER 1.2. IE PAGE 17 



05EC 


DC 63 






CALR 


CONOUT 


05313 


95FC 






POPL 


RRl2 t R15~ 


05F0 


7608 


400E 




LD 


R8 , ~KEYBD 


05F4 


DB78 






CALR 


PUTFL 


05?6 


2101 


0002 




LD 


HI ,2 


05FA 


DBA4 




DISRB: 


CALR 


PDTSP 


05FC 


DB93 






CALR 


PUTBG 


05FE 


A9D1 






INC 


R13,2 


0600 


2101 


0001 




LD 


Rl,l 


0604 


A9C0 






IN'C 


B12,i 


0606 


0B0C 


0010 




CP 


R12,16 


060A 


EEF? 






JR 


NZ, DISRB 


060C 


210D 


004F 




LD 


R13,79 


0610 


DBE4 




DISRC: 


CALR 


CRLF 


0612 


760E 


400E 




LD 


R14,~KEYBD 


0616 


DC78 






CALR 


CONOUT 


0618 


5E08 


0386 


DISRD: 


JP 


DISMEI 


061C 


0B00 


0050 


DISPRG: 


CP 


R0,'P' 


0620 


EE04 






JR 


NZ, DISFLG 


0622 


DC2F 






CALR 


GETCE 


0624 


EEBC 






JR 


NZ,CMDRR 


0626 


DB5F 






CALR 


BRKDIS 


0628 


E8F7 






JR 


DISRD 


062A 


0B00 


0046 


DISFLG: 


CP 


R0,'F' 


062E 


EE06 






JR 


NZ, DISNRG 


0630 


DC 36 






CALR 


GETCH 


0632 


SE2F 






JR 


NZ f CMDRE 


0634 


DB98 






CALR 


PUTFL 


0636 


21 0D 


000E 




LD 


R13,14 


063A 


E8EA 






JR 


DISRC 


063C 


ABE0 




DISNRG: 


DEC 


R14,l 


063E 


DBCB 






CALR 


DEC4 


0640 


EE28 






JR 


NZ,CMDRE 


0642 


DFDD 






CALR 


CR chk; 


0644 


A11C 






LD 


R12,R1 


0646 


761D 


4086 




LD 


R13,~tJ0(Rl) 


064 A 


811D 






ADD 


R13,R1 


064C 


DBBB 






CALR 


PUTRG 


064E 


210D 


0009 




LD 


R13,9 


0652 


E8DE 






JR 


DISRC 


0654 






% 







°/oFLAGS 



^REGISTERS 8-15 



^HANDLE P REGISTER 
°/»PC=XXXX 

^HANDLE FLAG REGISTER 
6 /oDO SPECIFIC REGISTER 
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0654 

0654 

0654 

0658 

065C 

065C 

065C 

065C 

0660 

0662 

0664 

0666 

0668 

066A 

066E 

0672 

0672 

0672 

0672 

0676 

067C 

067E 

067E 

067E 

067E 

067E 

0680 

0682 

0688 

068 A 

068A 

068A 

068E 

0690 

0692 

0692 

0694 

0698 

0698 

069A 

069C 



2102 0006 
5E08 0332 



6305 400C 
DC4E 
E605 
ABE0 
DC4B 
DFF0 

6F01 4084 
5E08 031 C 



6305 400C 
4D05 4084 1000 
E8F8 



DBAC 

E708 

4D05 4000 0FA0 

E80A 



0B00 000D 

9E06 

97F2 

DB82 
5E08 02D8 



% 
S°ETZRO 

% 
% 
% 
XECTE: 



SET ZERO FLAG(OR CLEAR) - Z COMMAND 



SETBEE: 

% 

% 

% 

XASM: 



% 
% 
% 
XLDPR: 



LD 
JP 



R2,6 
SETFCW 



J#NO ADDRESS 
?%FETCH PC ADDRESS 



GO COMMAND 

RES CTLWD,TRMDE 

CALR GETCH 

JR ZR, SETBEE 

DEC R14,l 

CALR EEXJTST 

CALR cr_chk; 

LD USPCR1 

JP SETBE 

ASM COMMAND 

RES CTLWD.TRMDE 

LD USPCUSERP 

JR SETBEE 

LOAD COMMAND 



CALR ldsve; 

JR CT.CMDRE? % FILE NAME ERROR 

LDA CHDEST,READ_BIN; % SET CO-ROUTINE 

JR XLOADIJ 



CR CHK 



DBB9 
DBB4 
5EFA 





CP 


R0,CRJ 




RET 


EQ > 




POP 


R2,R15~; 


CMDRE : 








CALR 


RESET RE 




JP 


cmder; 


% 






XLOAD: 


CALR 


LDSVE 




CALR 


LDSV1? 




JR 


NZ, CMDRE 
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069E 






069E 


D00B 




06A0 


DEF4 




06A2 


760E 


00E6 


06A6 


210B 


001E 


06AA 


EE18 




06AC 


DEE8 




06AE 


EE0? 




06B0 


6101 


4080 


06M 


0101 


0080 


06B8 


6F01 


4080 


06BC 


E8F7 




06BE 






06BE 


DB98 




06C0 


0B07 


0001 


06C4 


EE06 




06C6 


DEFB 




06C8 


760E 


0165 


06CC 


2105 


0010 


06D0 


E805 




06D2 


DF01 




06D4 


760E 


00F6 


06D8 


210D 


000E 


06DC 






06DC 


DBA7 




06DE 


DCDC 




06E0 


5E08 


0386 


06E4 






06E4 






06E4 






06E4 


DBDF 




06E6 


DBDA 




06E8 


EED4 




06EA 


DBAA 




06EC 


EED2 




06EE 


93E1 




06F0 


DC8B 




06F2 


97E2 




06F4 


EECE 




06F6 


D037 




06F8 


8B12 





XLOAD1 : 
XLOADD: 

XLOADA: 



XL0AB3: 



XLOADC: 



DISERG: 



% 

% 

X°SAVE: 



CALR cr_chk; 

CALR OPEN 

LD R14, "MISER 

LD R13,MISERL 

JR NZ, DISERG 

CALR READ 

JR NZ,XLOADB 

LD R1,TRINC 

ITVH Vf 1 OQ 

LD TRINCR1 

JR XLOADA 



CALR reset_recve_switch; 

CP R7 , 1 ,* 

JR NZ ,XLOADC 

CALR CLOSE 

LD R14,~LODCM 

LD R13,L0DCML 

JR DISERG 

CALR CLOSE 

LD R14,~DSKER 

LD R13,DSKERL 

CALR reset__recve_switch; 

CALR concut; 

JP DISMEI ; 

SAVE COMMAND 



#OPEN LOAD FILE ON SYSTEM 8 



#NOT AVAILABLE 
•/.READ SYSTEM SECTOR 



«/ A T>.tr A Mf-c T n * n Ai\Tvmncc 



CALR 

CALR 

JR 

CALR 

JR 

PUSH 

CALR 

POP 

JR 

CALR 

CP 



LDSVE 

LDSV1J 

NZ,CMDRE 

COMMA 

NZ,CMDRE 

R15",R1 

HEX 16 

R?,R15~ 

NZ,CMDRE 

CR_CHK? 

R2,R1 



#FETCH SAVE TO ADDRESS 
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06FA 


EBCB 




06FG 


6F01 


407E 


0700 


DF15 




0702 


EEE7 




0704 


DF09 




0706 


EEE5 




0708 


6101 


4080 


070C 


0101 


0080 


0710 


6F01 


4080 


0714 


6102 


407E 


0718 


8B21 




071A 


E3F4 




071C 


DF26 




0711? 


760E 


0175 


0722 


210D 


0010 


0726 


E8DA 




0728 






0728 






0728 






0728 


DBF3 




072A 


6306 


400C 


072E 


760E 


0185 


0732 


210D 


000F 


0736 


E8D2 




0738 






0738 






0738 






0738 


DBFB 




073A 


6706 


400C 


073E 


E613 




0740 


6900 


4080 


0744 


6101 


4080 


0748 


6102 


407E 


074C 


8B21 




074E 


E708 




0750 


6B00 


407C 


0754 


E608 




0756 


DBF7 




0758 


4D08 


4080 


075C 


5E08 


05AA 


0760 


6B00 


407C 





JR 


LGT,CMDRE J 




LD 


TRDIS.R1 I 




CALR 


CREATE J 




JR 


NZ,XLOADC J 


XSAVEA: 


CALR 


WRITE ; 




JR 


NZ,XLOADC ; 




LD 


R1,TRINC J 




ADD 


R1.128 ; 




LD 


TRINC.R1 ? 




LD 


R2,TRDIS f 




CP 


R1,R2 ; 




JR 


LLE, XSAVEA ; 




CALR 


CLOSE ; 




LD 


R14,~DMSG ; 




LD 


R13,DMSGL ; 




JR 


DISERG ; 


% 






% 


USER 


PROGRAM ILLEGAL TRAP 


% 






US ERR: 


CALR 


SAVER ; 




RES 


CTLWD,STPFLG ; 




LD 


R14,~USERM ; 




LD 


R13,USERML J 




JR 


DISERG ; 


% 






% 
% 


NON-MASKABLE INTERRUPT - 


STPRTN: 


CALR 


SAVER ; 




BIT 


CTLWD.STPFLG ; 




JR 


ZR.STPRTB ; 




INC 


TRINC,1 ; 




LD 


Rl.TRINC J 




LD 


R2.TRDIS ; 




CP 


Rl ,R2 ; 




JR 


LLT, STPRTA J 




DEC 


TRCNT.l ; 




JR 


ZR,STPRTB ; 




CALR 


BRKDIS J 




CLR 


TRINC ; 


STPRTC: 


JP 


TRACC ; 


STPRTA: 


DEC 


TRCNT,1 i 



#FROM < TO 

^CREATE SYSTEM 8 FILE 
^COULDN'T CREATE 
#WRITE SYSTEM 8 SECTOR 
^WRITE ERROR 

^ADVANCE SAVE ADDRESS 



%END SAVE AREA 



#SAVE USER REGISTERS 
#CLEAR STEP CONTROL 



STEP CONTROL AMONGST OTHER THINGS 

%SAVE USER REGISTERS 

#MUST BE BOARD SWITCH OR BREAKPOINT 

%NOT TIME FOR DISPLAY 
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0764 


EEFB 




0766 


6306 


400C 


076A 


DC01 




076C 


5E08 


0386 


0770 






0770 






0770 






0770 


6705 


400C 


0774 


5E06 


02D8 


nryrtn 


/>T\ A A 




Brio 


outx 




077A 


5E08 


0560 


077E 






077E 






077E 






077E 


DC1S 




0780 


0702 


00FF 


0784 


E638 




0786 


0B02 


00FF 


078A 


EE0E 




078C 


2100 


0003 


0790 


7604 


4070 


0794 


6103 


4084 


0798 


AB31 




079A 


0D44 




079C 


E605 




079E 


0B43 




07A0 


E616 




07A2 


A943 




07A4 


AB00 




07A6 


EEF9 




07A8 


DFEA 




07AA 


6306 


400C 


07AE 


7608 


400E 


07B2 


93F2 




07B4 


2101 


000D 


07B8 


7602 


0194 


07BC 


DC7F 




07BE 


97F1 




07C0 


B319 


0008 


07C4 


DCCD 




07C6 


210D 


0011 



STPRTB: 



% 
% 
% 
STEP : 



% 

% 
% 
STSCAL: 



CHKBRK 



UEXIT: 



JR NZ,STPRTC 

RES CTLWD,STPFLG 

CALR BRKDIS 

JP DISMEI 



#NOT END TRACE OR STEP 



STEP COMMAND(CR ONLY IF CONDITION SET) 



BIT 
JP 



CTLWD,TRMDE 
ZR,CMDER 



OiT-CHx 



Lit 



USER PROGRAM CALL 



CALR 

AND 

JR 

CP 

JR 

LD 

LD 

LD 

DEC 

TEST 

JR 

CP 

JR 

INC 

DEC 

JR 

CALR 

RES 

LD 

PUSH 

LD 

LD 

CALR 

POP 

SLA 

CALR 

LD 



SAVER 

R2,M8 

ZR,PROCAL 

R2 , M8 

NZ , UEXIT 

R0,3 

R4,~BRKTAB 

R3,USPC 



R3.2 


R4 A 


ZR, UEXIT 


R3,R4~ 


ZR,BRKHIT 


R4 f 4 


R0,1 


NZ, CHKBRK 


CLRBRK 


CTLVD.STPFLG 


RS,~KETBD 


R15^,R2 


Rl ,USEXTL 


R2,"USEXT 


PDTMS 


Rl ,R15~ 


El, 8 


PUTHXB 


R13,USEXTL+4 



^CONDITIONS NOT RIGHT 



#SAVE USER REGISTERS 
^SERVICE REQUEST 
#NOT BREAKPOINT TRAP 

%BACK PC TO TRAP ADDRESS 

#MATCH ON SET BREAKPOINT 

#CLEAR BREAKPOINT TABLE 
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07CA 


5E08 


0610 


07CE 


6F03 


&Svc4t 


07D2 


DFFF 




07D4 


E8C8 




07D6 _< 


12100 


0003 


07!)A T 


7604 


407^ 


07DE 


2145 




07E0 


0D48 




07E2 


A941 




07E4 


8D54 




07E6 


E603 




07E8 


2146 




07EA 


0D48 




07EC 


2F56 




07EE 


AB45 




07F0 


AB00 




07F2 


EEF5 




07F4 


9E08 




07F6 






07F6 






07F6 






07F6 


1C11 


0303 


07FA 


B339 


F7F8 


07FE 


0703 


00FF 


0802 


0B03 


0001 


0806 


E707 




0808 


EE24 




080A 


DE16 




080C 


DD24 




080E 


0B00 


001B 


0812 


5E06 


024C 


0816 


6101 


4088 


081A 


760E 


400E 


081E 


1C11 


0303 


0822 


A158 




0824 


A167 




0826 


8D68 




0828 


0307 


0001 


082C 


E708 




082E 


DD3B 




0830 


A109 





4 





JP 


DISRC 




ID 


USPC.R3 




CALR 


CLRBRK 




JR 


STPRTB 


C LitBHK * 


LD 


K0 t 3 




LD 


R4,~BRKTAB 


CLRBA: 


LD 


R5,R4~ 




CLR 


R4 




INC 


R4,2 




TEST 


R5 




JR 


ZR, CLRBB 




LD 


R6,R4~ 




CLR 


M 




LD 


R5~,R6 


CLRBB: 


DEC 


R4,6 




DEC 


R0,1 




JR 


NZ, CLRBA 




RET 




% 






% 


PROCESS 


A USER PRO 


% 






PROCAL: 


LDM 


H3 f Rl"' t 4 




SRA 


R3,8 




AND 


R3,M8 




CP 


R3,l 




JR 


CY, PROCAA 




JR 


NZ,PROCAE 




CALR 


CONIN 




CALR 


GETCH 




CP 


R0.ESC 




JP 


ZR,PRKBD 


PROCAA: 


LD 


R1,U1 




LD 


R14,~KEYBD 




LDM 


R3,R1~,4 




LD 


R8,R5 




LD 


R7,R6 




CLR 


R5 


PROCAB: 


SUB 


R7,l 




JR 


CY,PROCAC 




CALR 


NEXCH 




LD 


R9,R0 



%SET USER PC TO TRAP LOCATION 
#AND CLEAR BREAKPOINT TABLE 

#CLEAR BREAKPOINT TABLE(IN REVERSE) 



^RESTORE BREAKPOINT CONTENT 



#FETCH PARAMETER LIST 



^RETURN KEYBOARD REQUEST 



^ESCAPE IS MONITOR RETURN 



^PREMATURE END 
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0832 


DCF8 




0834 


A960 




0836 


0B09 


000D 


083A 


EEF6 




083C 


8D78 




083E 


8D72 




0840 


0703 


FF00 


0844 


8573 




0846 


6101 


4088 


084A 


1C19 


0303 


084E 


5E08 


031C 


0852 


0B03 


0003 


0856 


A16P 




0858 


EF08 




085A 


A15E 




085C 


DD9B 




085E 


8D78 




0860 


6101 


4088 


0864 


1C11 


0303 


0868 


* E8EB 




086A 


A14E 




086C 


83)48 




086E 


E605 




0870 


A1E4 




0872 


0B03 


0007 


0876 


EF03 




0878 


8DD8 




087A 


DFDC 




087C 


E8F1 




087E 


EE0B 




0880 


8DD8 




0882 


DFC1 




0884 


6101 


4088 


0888 


1C11 


0303 


088C 


210D 


0080 


0890 


DF03 




0892 


A1C6 




0894 


E8D5 




0896 


0B03 


0008 


089A 


210D 


0080 


089E 


E6ED 







CALR 


PUTCH 




INC 


R5,l 




CP 


R9 f CR 




JR 


NZ,PROCAB 




CLR 


R7 


PROCAC: 


NEG 


R7 


PROCAD: 


AND 


R3 , MU8 




OR 


R3,R7 




LD 


R1.U1 




LDM 


R1 A ,R3,4 




JP 


SETBE 


PROCAE: 


CP 


E3 ,3 




LD 


R13,R6 




JR 


NC, PROCAG 




LD 


R14,R5 




CALR 


CONOUT 




CLR 


R7 


PROCAF: 


LD 


R1,U1 




LDM 


R3,R1~,4 




JR 


PROCAD 


PROCAG: 


LD 


R14,R4 




CLR 


R4 




JR 


ZR, PROCAH 




LD 


R4,R14 




CP 


R3,7 




JR 


NC, PROCAI 




CLR 


R13 


PROCAH: 


CALR 


OPEND 




JR 


PROCAF 


PROCAI: 


JR 


NZ, PROCAJ 




CLR 


R13 




CALR 


TRNSMT 




LD 


R1,U1 




LDM 


R3,R1~,4 




LD 


R13,128 




CALR 


DI ALOG 




LD 


R6,R12 




JR 


PROCAD 


PROCAJ: 


CP 


R3,8 




LD 


R13,128 




JR 


ZR, PROCAH 



^NORMAL END 



^RESTORE USER PARAMETERS 



^OUTPUT CONSOLE REQUEST 



#OPEN, CLOSE, CREATE, PRINT 



#READ SECTOR 
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08A0 


A16D 






LD 


R13,R6 




08A2 


DFB1 






b AJbfi 


TRNSMT 




08A4 


6101 


4088 




LD 


R1,U1 




08A8 


1C11 


0303 




LDM 


R3 t Rl~,4 




08AC 


210D 


FFFF 




LD 


R13, 65535 




08B0 


AD54 






EX 


R4,R5 




08B2 


DF14 






CALR 


DIALOG 




08B4 


AD54 






EX 


R4,R5 




08B6 


A1C6 






LD 


R5.R12 




08B8 


E8C3 






JR 


PROCAD 




08BA 






% 








08BA 






% 


OPEN 


SYSTEM 8 FILE 




08BA 






% 








08BA 


2103 


0004 


OPEN: 


LD 


R3,4 




08BE 


8DD8 




OPENA : 


CLR 


R13 




08C0 


7604 


4060 


OPENB: 


LD 


R4,~FILNM 




08C4 


DFE? 




OPEND: 


CALR 


TRNSMT 




08C6 


7605 


400E 




LD 


R5 , ~KEYBD 




08CA 


210D 


0050 




LD 


R13,80 




08CE 


DF22 




OPENC: 


CALR 


DIALOG 




08D0 


9E08 






RET 






08D2 






% 








08D2 






% 


CLOSE 


SYSTEM 8 FILE 




08D2 






% 








08D2 






CLOSE: 








08D2 


2103 


0005 




LD 


R3 ,5 J 




08D6 


E8F3 






JR 


OPENA 


• 


08D8 






% 








081)8 






% 


CREATE SYSTEM 8 FILE 




08D8 






% 








08D8 


2103 


0006 


CREATE: 


LD 


R3,6 


• 
t 


08DC 


E8F0 






JR 


OPENA 


• 


08DE 






% 








08DE 






% 


READ 


SYSTEM 8 SECTOR 




08BE 






% 








08DE 


2103 


0007 


READ : 


LD 


R3,7 




08E2 


8DD8 






CLR 


R13 




08F4 


7604 


4060 




LD 


R4,~FILNM 




08E8 


DFF4 






CALR 


TRNSMT 




08EA 


210D 


0080 




LD 


R13.128 




08EE 


6105 


4080 




LD 


R5,TRINC 





ESPECIAL FUNCTIONS 
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08F2 


E8ED 




08F4 






08F4 






08F4 






08F4 


2103 


0008 


08F8 


210D 


0080 


08FC 


6105 


4080 


0900 


E8DF 




0902 






0902 






0902 






0902 


2100 


0005 


0906 


DFC8 




0908 


DF75 




090A 


0B00 


0005 


090E 


E6FC 




0910 


0B00 


0006 


0914 


EEF6 




0916 


2100 


0001 


091A 


DFD2 




091 C 


A130 




091E 


0100 


0030 


0922 


DFD6 




0924 


0B03 


0004 


0928 


E707 




092A 


0B03 


0009 


092E 


EF04 




0930 


A14E 




0932 


210C 


000D 


0936 


DFF0 




0938 


2100 


0002 


093C 


DFE3 




093E 


8DD4 




0940 


E603 




0942 


A1DC 




0944 


A15E 




0946 


DFF8 




0948 


2100 


0004 


094C 


DFEB 




094E 


DF98 




0950 


0B00 


0006 





JR 


OPENC ; 


% 






% 
% 


WRITE 


SYSTEM 8 SECTOR 


WRITE: 


LD 


R3,8 ; 




LD 


R13,128 ; 




LD 


R5,TRINC J 


°/ 


JR 


OPENB ; 


% 


TRANSMIT R13 CHARACTERS I 


% 






THNSMf": 


LD 


R0|ENQ ; 




CALR 


TRNCHR ? 


TRNSMA: 


CALR 


RECHR ; 




CP 


R0,ENQ ; 




JR 


ZR, TRNSMA J 




CP 


R0 , ACK ; 




JR 


NZ,TRNSMT i 


TRNSMB: 


LD 


R0.SOH ; 




CALR 


TRNCHR ; 




LD 


R0,R3 ? 




ADD 


R0,'0' ; 




CALR 


TRNCHR ? 




CP 


R3,4 ; 




JR 


CT t TRNSMC J 




CP 


R3,9 ; 




JR 


NC, TRNSMC ? 




LD 


R14,R4 J 




LD 


R12.13 ; 




CALR 


SENDCH J 


TRNSMC: 


LD 


R0.STX ; 




CALR 


TRNCHR J 




TEST 


R13 ; 




JR 


ZR, TRNSMD J 




LD 


R12,R13 J 




LD 


R14,R5 J 




CALR 


SENDCH ? 


TRNSMD: 


LD 


R0,EOT J 




CALR 


TRNCHR ; 




CALR 


RECHR J 




CP 


R0.ACK ; 



#ASK PERMISSION 
^RESPONSE 

^ENQUIRY SHOULD BE FOLLOWED BY ACK 



#SOE 

%CODE 
%HO NAME 
%HO NAME 

#FILE NAME 

%STX 

%HO TEXT 

#DATA 
%W1 
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0954 


EEE0 




0956 


9E08 




0958 






0958 






0958 






0958 


DDD0 




095A 


93F0 




095C 


B309 


FBFC 


0960 


0100 


0030 


0964 


DFF7 




0966 


97F0 




0968 


0700 


000F 


096C 


0100 


0030 


0970 


DFFB 




0972 


ABC0 




0974 


EEF1 




0976 


9E08 




0978 






0978 






0978 






0978 


8488 




097A 


7D12 




097C 


B319 


0003 


0980 


0701 


0080 


0984 


8510 




0986 


6704 


400C 


098A 


EE27 




098C 


6703 


400C 


0990 


E62D 




0992 


3B06 


0FF0 


0996 


2101 


000F 


099A 


3B16 


0FF3 


099E 


3B14 


0FF2 


09A2 


A712 




09A4 


EE0B 




09A6 


6503 


400C 


09AA 


2101 


000E 


09AE 


3B16 


0FF3 


09B2 


3B14 


0FF2 


09B6 


A712 




09B8 


E6FC 





% 
% 
% 

SENDCH: 



% 
% 
% 
TRNCHR: 



TRNCHA: 
TRNCHD: 
TRNCHI: 



JR 
BET 



NZ t TRNSMB 



;#RE-TRANSMIT 



TRANSMIT REX FROM R14 OF R12 CHARACTERS 



CALR 

PUSH 

SRA 

ADD 

CALR 

POP 

AND 

ADD 

CALR 

DEC 

JR 

RET 



NEICH 

R15~,R0 

R0,4 

R0,'0' 

TRNCHR 

R0,R15~ 

R0,M4 

R0 , '0 ' 

TRNCHR 

R12,l 

NZ, SENDCH 



; /n: 



/ a \j 



PLJ .&1F 



TRANSMIT CHARACTER IN R0 WITH- MITT 



ORB RL0,RL!^_ - 

LDCTL Rl ,FCW M 

SLA Rl ,3 

AND R1,80H 

OR R0,R1 

BIT CTLVD,RMOSW+l 

JR NZ,TRNCHE 

BIT CTLWD.RMOSW 

JR ZR.TRNCHG 

OUT PPT f R0 

LD R1,0FH 

OUT PPT+3,R1 

IN Rl.PPT+2 ?■ ■/*' c 

BIT Rl,2 .". ;: 

JR NZ.TRNCHB 

SET CTLWD.RMOSW 

LD R1.0EH 

OUT PPT+3,R1 

IN Rl,PPT+2 

BIT Rl,2 

JR ZR,TRNCHI 






^SERIAL OUTPUT 

#NOT PARALLEL OUTPUT 

__ f~~ % b"T •> ! ' 7 ' ' " 

#SET TRANSMIT (BIT 7) 



S t UT (.( 



o *ff JT 



>)?£&. 



#SENSE RESPONSE(BIT 2) 
#SET REMOTE PARALLEL 

#CLEAR TRANSMIT 



#WAIT RESPONSE DROP (BIT 2) 6 



1 TM 



£? '• 
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09BA 


9E08 




RET 




09BC 


A?13 


TRNCHB: 


BIT 


Rl,3 


09B1 


EEEF 




JR 


NZ,TRNCHA 


09C0 


2101 000D 




LD 


R1,0DH 


09C4 


3B16 0FF3 




OUT 


PPT+3,R1 


09C8 


3B14 0FF2 * 


TRNCHC: 


IN 


Rl,PPT+2 


09CC 


A713 




BIT 


Rl,3 


09CE 


E6FC 




JR 


ZR,TRNCEC 


09D0 


2101 000C 




LD 


Rl t 0CH 


rtf\7\ a 


T ■»"»••*» (IflTId 




#% rrm 


^^ m „, -r* ^ 


Wlf± 


OJ3J.O WHO 




UUI 


fri+Offli 


09158 


E8E2 




JR 


TRNCHA 


09M 


3B14 0FID 


TRNCffE: 


IN 


RlVSPT+1 


09DE 


A710 




BIT 


R1,0 


09E0 


E6FC 




JR 


ZR.TRNCHE 


09E2 


3B06 0FEC 




OUT 


SPT,R0 


09E6 


6504 400C 


TRNCHF: 


SET 


CTLWD,RMOSV+l 


09EA 


9E08 




RET 




091^C 


8D28 


TRNCHG: 


CLR 


R2 


09EE 


3B06 0FF0 




OUT 


PPT,R0 


09F2 


2101 000F 




LD 


Rl ,0FH 


09F6 


3B16 0FF3 




OUT 


PPT+3,R1 


09PA 


3B14 0FF2 


TRNCHH: 


IN 


Rl,PPT+2 


09FE 


A712 




BIT 


■HI ,2 


0A00 


E6D2 




JR 


ZR,TRNCHD 


0A02 


AB20 




DEC 


R2,l 


0A04 


EEFA 




JR 


NZ, TRNCHH 


0A06 


3B14 0FED 




IN 


R1,SPT+1 


0A0A 


A710 




BIT 


R1,0 


0A0C 


E6EF 




JR 


ZR, TRNCHG 


0A0E 


3B06 0FEC 




OUT 


SPT,R0 


0A12 


3B14 0FED 


TRNCHJ: 


IN 


R1,SPT+1 


0A16 


A711 




BIT 


Rl,l 


0A18 


EEE6 




JR 


NZ, TRNCHF 


0A1A 


AB20 




DEC 


R2,l 


0A1C 


EEFA 




JR 


NZ, TRNCHJ 


0A1E 


E8E6 




JR 


TRNCHG 


0A20 




% 






0A20 




% 


RECEIVE 


CHARACTER TO ] 


0A20 




% 






0A20 


6704 400C 


RECHR: 


BIT 


CTLWD,RMOSW+l 


0A24 


8D18 




CLR 


Rl 



#SENSE RECEIVE'BIT 3) 
#SET RECEIVE ACK(BIT 6) 



t {-•■ 



i 



#WAIT RECEIVE DROP Ciri$~< 

/•CLEAR RECEIVE ACK(BlT 6) 



■ • Jill l> 



'/WAIT SERIAL READY 
#SET REMOTE SERIAL 
%IQ% UNKNOWN - TEST IF SERIAL OR PARALLEL 



*GOT RESPONSE FROM PARALLEL 
%WAIT A BIT 

^SERIAL NOT READY FOR OUTPUT 

%GOT RESPONSE FROM SERIAL 

e A'AIT A BIT 

%GrO TRY PARALLEL AGAIN, AND AGAIN, AND 

J ^TIMEOUT VALUE 



4016 EVALUATION BOARD MONITOR V1.1MACRO 8/8000 Z8000 ASSEMBLER 1.2. IE PAGE 28 



0A26 


EE0D 






JR 


NZ, RECHB 


0A28 


6703 


a nnn 




BIT 


CTLWD,RMOSW 


0A2C 


EE13 






JR 


NZ , RECHC 


0A2E 


3B04 


0FF2 


RECHA: 


IN 


R0,PPT+2 


0A32 


A702 






BIT 


R0,2 


0A34 


E602 






JR 


ZR, RECHD 


0A36 


A703 






BIT 


R0,3 


0A38 


E60D 






JR 


ZR, RECHC 


0A3A 


3B04 


0FED 


RECHD: 


IN 


R0,SPT+1 


0A3E 


A701 






BIT 


R0,1 


0A40 


E6F6 






JR 


ZR, RECHA 


0A42 


6504 


400C 


RECHB: 


SET 


CTLVD,RMOSW+l 


0A46 


3B04 


0FED 




IN 


R0,SPT+1 


0A4A 


A701 






BIT 


R0,1 


0A4C 


E6FA 






JR 


ZR, RECHB 


0A4E 


3B04 


0FEC 




IN 


R0,SPT 


0A52 


E814 






JR 


RECHF 


0A54 


6503 


400C 


RECHC : 


SET 


CTLWD,RMOSW 


0A58 


3B04 


0FF2 




IN 


R0,PPT+2 


0A5C 


A703 






BIT 


R0,3 


0A5E 


EEFA 






JR 


NZ , RECHC 


0A60 


3B04 


0FF1 




IN 


R0,PPT+1 


0A64 


2101 


000D 




LD 


R1,0DH 


0A68 


3B16 


0FF3 




OUT 


PPT+3 f Rl 


0A6C 


3B14 


0FF2 


RECHE : 


IN 


Rl,PPT+2 


0A70 


A713 






BIT 


HI ,3 


0A72 


E6FC 






JR 


ZR, RECHE 


0A74 


2101 


000C 




LD 


R1,0CH 


0A78 


3B16 


0FF3 




OUT 


PPT+3,R1 


0A7C 


0608 


FFFF 


RECHF: 


ANDB 


RL0,M8 


0A80 


8C08 






CLRB 


RH0 


0A82 


A307 






RES 


R0,7 


0A84 


9E08 






RET 




0A86 






% 






0A86 






% 


RECEIVE 


TO R5(TEXT) 


0A86 






% 






0A86 


2100 


0015 


KNACK: 


LD 


R0,NAK 


0A8A 


D08A 






CALR 


TRNCHR 


0A8C 


D037 




DIALOG: 


CALR 


RECER 


0A8E 


0B00 


0005 




CP 


R0,ENQ 


0A92 


EEF9 






JR 


NZ, KNACK 



^SERIAL INPUT 
/.PARALLEL INPUT 

#SENSE INITIAL RESET 

#SENSE PARALLEL READY(BIT 3) 

#SET SERIAL I/O 



#SET PARALLEL I/O 

#SENSE RECEIVE(BIT 3) 

#SET RECEIVE ACK(BIT 6) 

#WAIT RECEIVE DROP 
#CLEAR RECEIVE ACK(BIT 6) 
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0A94 


2100 


0006 


0A98 


D091 




0A9A 


DFC8 




0A9C 


0B00 


0001 


0AA0 


EE38 




0AA2 


DFCC 




0AA4 


7607 


4006 


0AA8 


7608 


4000 


0AAC 


210E 


0003 


0AB0 


BB81 


0E70 


0AB4 


0300 


0030 


0AB8 


A10E 




0ABA 


DFD8 




0ABC 


0B00 


0002 


0AC0 


EE28 




0AC2 


A158 




0AC4 


8DC8 




0AC6 


DFDE 




0AC8 


A107 




0ACA 


0307 


0030 


0ACE 


DFE2 




0AD0 


0300 


0030 


0AD4 


B379 


0004 


0AD8 


8507 




0ADA 


DFE8 




0ADC 


0B00 


0004 


0AE0 


E610 




0AE2 


A102 




0AE4 


0302 


0030 


0AE8 


DFEF 




0AEA 


0300 


0030 


0ATE 


B329 


0004 


0AF2 


8520 




0AF4 


8BDC 




0AF6 


E6F1 




0AF8 


6102 


4000 


0AFC 


1F20 




0AFE 


A9C0 




0B00 


E8EC 




0B02 


2100 


0006 


0B06 


D0 C8 





ACKNL: 



RECVE: 



RECVA: 



RECVB: 



LD 


R0 , ACK 


; 5/ /{, V 3 /. c k: 


CALR 


TRNCHR 


• 

f * ,....- .. ... 1>. 


CAIR 


RECHR CHK - ^ 


^■/•^ ";%soh '. 


CP 


R0,SOH 


• 

> 


JR 


NZ, FLUSH 


• 

t 


CAIR 


RECHR CHK 


;#cods 


LD 


R7,~OLD STATE? 




LD 


R8, "state; 




LD 


R14,3J 




LDIR 


R7%R8%R14 


;% SAVE STATE c of 


SUB 


R0, '0' 




LD 


R14;R0 




CALR 


RECHR CHK 


;%stx 


CP 


R0,STX 




JR 


NZ, FLUSH 




LD 


R3,R5 




CLR 


R12 




CALR 


RECHR CHK 


;%RESPONSEl 


LD 


R7,R0 




SUB 


R7/0' 




CALR 


RECHR CHK 


;#RESP0NSE2 


SUB 


R0 , 'QT 




SLA 


R?,4 




OR 


R7,R0 




CALR 


RECHR_CHK 


;#text 


CP 


R0,EOT 




JR 


ZR, RECVB 


?#EOT 


LD 


R2,R0 




SUB 


R2,'0' 




CALR 


RECHR CHK 


• 

> 


SUB 


R0 , '0' 




SLA 


R2,4 




OR 


R0,R2 




CP 


R12,R13 




JR 


ZR, RECVA 


J ^BUFFER FULL 


LD 


R2,CHDEST? 




CALL 


R2~J 




INC 


R12,l 




JR 


RECVA 




LD 


R0.ACK 




CALR 


TRNCHR 





A C *-" 
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0B08 


8577 




0B0A 


9E08 




0B0C 






0B0C 


D077 




0B0E 


9E0C 




0B10 


97F2 




0B12 


8D28 




0B14 


6704 


400C 


0B18 


EE1F 




0B1A 


3B04 


0FF2 


0B1E 


A703 




0B20 


EE0B 




0B22 


2101 


000D 


0B26 


3B16 


0FF3 


0B2A 


3B04 


0FF2 


0B2E 


A703 




0B30 


E6FC 




0B32 


2101 


000C 


0B36 


3B16 


0FF3 


0B3A 


E8EB 




0B3C 


AB20 




0B3E 


EEEA 




0B40 


2100 


0015 


0B44 


D0E7 




0B46 


7607 


4006 


0B4A 


7608 


4000 


0B4E 


21 0E 


0003 


0B52 


BB71 


0E80 


0B56 


E8A1 




0B58 


3B04 


0FED 


0B5C 


A701 




0B5E 


E6EE 




0B60 


3B04 


0FEC 


0B64 


E8D6 




0B66 






0B66 






0B66 






0B66 






0B66 


7608 


406E 


0B6A 


2107 


0007 


0B6E 







FLUSH: 
FLUSHA 



OR 
RET 

RECHR CHI: 

CALR 

RET 

POP 

CLR 

BIT 

JR 

IN 

BIT 

JR 

LD 

OUT 

FLUSEC: IN 
BIT 
JR 
LD 
OUT 
JR 
DEC 
JR 
LD 
CALR 
LD 
LD 
LD 
LDIR 
JR 
IN 
BIT 
JR 
IN 
JR 



FLUSHB 



FLUSHS 



% 
% 
% 

FNAME: 



FNAM1 : 



R7,R7 



recer; 

NOT PE£ 

R2,R15 J 

R2 

CTLWD,RMOSW+l 

NZ,FLUSHS 

R0 , ppt+2 

R0 t 3 

NZ, FLUSHB 

R1,0DE 

PPT+3,R1 

R0.PPT+2 

R0 f 3 

ZR.FLUSHC 

R1,0CH 

PPT+3,R1 

FLUSE 

R2 1 

NZ| FLUSHA 

R0,NAK 

TRNCHR 

R7,~0LD_STATE? 

R8, "STATE J 

R14 r 3J 

R8",R7",R14J 

RECVE 

R0,SPT+1 

R0,1 

ZR, FLUSHB 

R0,SPT 

FLUSH 



% FLUSH IF PE 
^DRAIN INPUT AND NAK 



% RESTORE STATE 



ASSEMBLE FILE NAME 



LD R8, 
LD 



*FILNM(14)J 

R7,7; 
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0B6E 


0D89 


2020 


0B?2 


FF03 




0B74 






0B74 


DED8 




0B76 


0A08 


4141 


0B7A 


E71E 




0B7C 


0A08 


4444 


0B80 


EB1B 




0B82 


ABE0 




0IDQA 

*/ J-- \^ i. 


TUT?1 

4/A1 JLJ .*. 


antQQ 

WJ ■ WW 


0B88 


20 E8 




0B8A 


0A08 


3A3A 


0B8E 


EE14 




0B90 


BAE1 


0788 


0B94 


2107 


0008 


0B98 


DFEF 




0B9A 


0A0F 


0808 


0B9E 


E60G 




0BA0 


0A08 


2E2E 


0BA4 


EE06 




0BA6 


7608 


406A 


0BAA 


A9E0 




0BAC 


2107 


0003 


0BB0 


DFFB 




0BB2 






0BB2 


A9E0 




0BB4 


8D83 




0BB6 


9E08 




0BB8 






0BB8 


8D81 




0BBA 


9E08 




0BBC 






0BBC 






0BBC 


20E8 




0BBE 


0A08 


3030 


0BC2 


9E07 




0BC4 


0A08 


3939 


0BC8 


E306 




0BCA 


0A08 


4141 


0BCE 


9E07 




0BD0 


0A08 


5A5A 



% 



FNAM4 : 



FNAM5: 



% 
TR 



CHK: 



PUSH 
DBJNZ 

CALR 

CPB 

JR 

CPB 

JR 

DEC 

TTlTU -DO 

LDB 

CPB 

JR 

LDIB 

LD 

CALR 

CPB 

JR 

CPB 

JR 

LD 

INC 

LD 

CALR 

INC 

RESFLG 

ret; 

SETFLG 

ret; 



LDB 

CPB 

RET 

CPB 

JR 

CPB RL0 

RET 

CPB 



H8V '; 

RL7 ,FNAM1 J 

getch; 

RL0/A'; 
LLT,FNAM5; 
RL0,'D'| 
LGT,FNAM5; 



% CLEAR FILE NAME BUFFER 



f i.L .LI 



■on • 



RL0.R14 ? 
■RL0. ■'■:-'■; 
NZ,FNAM5; 
R8",R14",R7; 
R7,8J 

TR chk; 

RL7,8; 
EQ f FNAM5; 

RL0,'.'? 

NE,FNAM4,* 

R8,"FILNM(10); 

R14,i; 

R7.3; 

TR chk; 



% RE-POSITION STRING POINTER 



% ERROR 



% EMPTY FILE NAME? 



% FILE TYPE? 



R14,1J 

cy; 



cy; 



RL0,R14~? 

RL0/0'; 
llt; 

RL0,'9'5 
LLE,TR CKi; 
» A t 

llt; 

RL0,'Z'? 



% INCR STRING ADDRESS POINTER 
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0BD4 


9E0B 






RET 


lgt; 


0BD6 






TR_CK1 i 






0BD6 


BAE1 


0788 




LDIB 


R8",R14",R7; 


0BDA 


ECF0 






JR 


NOV,TR chk; 


0BDC 


20E8 






LDB 


RL0,R14~J 


0BDE 


9E08 






ret; 




0BE0 






% 






0BE0 






% 






0BE0 






% 


READ 


KEYBOARD MESSAGE 


0PE0 






% 






0BE0 


7608 


400E 


CONIN: 


LD 


R8 , ~KETBD 


0BE4 


A185 






LD 


R5,R8 


0BE6 


21015 


0050 




LD 


R13,80 


0BEA 


6702 


400C 




BIT 


CTLWD,CN05tf+l 


0BEE 


EE34 






JR 


NZ,REMIN 


0BF0 


6700 


400C 




BIT 


CTLVD,CRTSW 


0BF4 


E63A 






JR 


ZR,CRTIN 


0BF6 


DF8E 






CALR 


KETCH 


0BF8 


8D04 






TEST 


R0 


0BFA 


E619 






JR 


ZR.REMCK 


0BFC 


6501 


400C 




SET 


CTLVD t CNOSW 


0C00 


A10E 




CONIA: 


LD 


R14,R0 


0C02 


DF94 




CONIB: 


CALR 


KETCH 


0C04 


8D04 






TEST 


R0 


0C06 


EEFD 






JR 


NZ,CONIB 


0C08 


7601 


FFE6 




LD 


Rl,~CHTAB(-32) 


0C0C 


81 IE 






ADD 


R14,R1 


0C0E 


DF2B 






CALR 


NEXCH 


0C10 


E605 






JR 


ZR,CONID 


0C12 


DFC2 






CALR 


PROCH 


0C14 


DF9D 




CONIC: 


CALR 


KETCH 


0C16 


8D04 






TEST 


R0 


0C18 


EEF3 






JR 


NZ f CONIA 


0C1A 


E8FC 






JR 


CONIC 


0C1C 


DEED 




CONID: 


CALR 


PUTCH 


0C1E 


760E 


0160 




LD 


R14,~PRMSG+1 


0C22 


210D 


0002 




LD 


R13,2 


0C26 


DF80 






CALR 


CONOUT 


0C28 


760E 


400E 


CONIE: 


LD 


R14,~KETBD 


0C2C 


9E08 






RET 




0C2E 


3B04 


0FF2 


REMCK: 


IN 


R0,PPT+2 



^REMOTE CONSOLE 

#RS232 CONSOLE 
ESPECIAL KETBOARD 

%m CHARACTER 
#SET LOCAL OUTPUT 



#WAIT GAP BETWEEN CHARACTERS 



^CARRIAGE RETURN 
^PROCESS CHARACTER 



'/ECHO CARRIAGE RETURN LINE FEED 



%Sm IF REMOTE 
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0C32 


A702 




BIT 


R0,2 


0C34 


E613 




JR 


ZR, CONII 


0C36 


A703 




BIT 


R0,3 


0C38 


EE11 




JR 


NZ f CONII 


0C3A 


6503 400C 




SET 


CTLWD,RMOSW 


0C3E 


6701 400C 


CONIF: 


BIT 


CTLWD.CNOSW 


0C42 


EE02 




JR 


NZ, CONIJ 


0C44 


6502 400C 




SET 


CTLWD.CNOSW+1 


0C48 


D115 


CONIJ: 


CALR 


RECER 


0O4A 


0B00 0005 




GP 


R0 *ENQ 


0C4E 


E602 




JR 


ZRicONIH 


0C50 


D0E6 




CALR 


KNACK 


0C52 


E8EA 




JR 


CONIE 


0C54 


B0E1 


CONIH: 


CALR 


ACKNL - 5 : ! 


0C56 


E8E8 




JR 


CONIE" 


0C58 


D0E7 


REMIN: 


CALR 


DIALOG 


0C5A 


E8E6 




JR 


CONIE 


0C5C 


3B04 0FEB 


CONII? 


IN 


R0»SPT+1 


0C60 


A701 




BIT 


R0,1 


0C82 


E6BE 




JR 


ZR,CONIN 


0C64 


6504 400C 




SET 


CTLWD,RMOSW+l 


0C68 


E8EA 




JR 


CONIF 


0C6A 




% 






0C6A 




% 


INPUT 


FROM SERIAL CON 


0C6A 




% 






0C6A 


3B04 0FE9 


CRTIN: 


IN 


R0,CPT+1 


0C6E 


A701 




BIT 


R0,1 


0C70 


E6DE 




JR 


ZR,REMCK 


0C72 


6501 400C 




SET 


CTLWD.CNOSW 


0C?6 


3B04 0FE9 


CRTWT: 


IN 


R0,CPT+1 


0C7A 


A701 




BIT 


R0,1 


0C7C 


E6FC 




JR 


ZR , CRTWT 


0C7E 


3B04 0FE8 




IN 


R0 f CPT 


0C82 


0700 007F 




AND 


R0 f M7 


0C86 


0B00 000D 




CP 


R0.CR 


0C8A 


E6C8 




JR 


ZR,CONID 


0C8C 


DFFF 




CALR 


PROCH 


0C8E 


E8F3 




JR 


CRTWT 


0C90 


0B00 007F 


PROCH: 


CP 


R0 t DEL 


0C94 


E613 




JR 


ZR,PRODL 


0C96 


0B00 0008 




CP 


R0,BSP 



#SENSE INITIAL RESET 



#SET REMOTE PARALLEL 



#SET OUTPUT REMOTE 



v 



#SET REMOTE SERIAL 



%SET LOCAL CONSOLE 



^CARRIAGE RETURN 
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0C9A 


E610 






JR 


ZR, PRODL ; 


0C9C 


0B00 


0018 




GP 


R0,CAN i 


0CA0 


E618 






JR 


ZR, PROCN ; 


0CA2 


0B00 


0020 




CP 


R0,' ' t 


0CA6 


9E07 






RET 


ct ; 


0CA8 


7602 


405D 




LD 


R2,~KEYBD+79 J 


0CAC 


8B28 






CP 


RB ,R2 J 


0CAE 


9E06 






RET 


ZR ; 


0CB0 


A18E 






LD 


R14 ,R8 ; 


0CB2 


210D 


0001 




LD 


R13,l ? 


0CB6 


DF3A 






CALR 


putch ; 


0CB8 


DFC9 






CALR 


CONOUT ;#ECHO CHARACTER 


0CBA 


9E08 






RET 




0CBC 


7602 


400E 


PRODL : 


LD 


R2,~KEYBD J 


0CC0 


8B28 






CP 


R8,R2 J 


0CC2 


9E06 






RET 


ZR ? 


0CC4 


760E 


0150 




LD 


R14,~BSPMS ; 


0CC8 


AB80 






DEC 


R3,l ; 


0CCA 


210D 


0003 


PRODM: 


LD 


R13,3 ; 


0CCE 


DFD4 






CALR 


conout ; 


0CD0 


9E08 






RET 




0CD2 


760E 


015C 


PROCN: 


LD 


R14,~CNMSG ; 


0CD6 


7608 


400E 




LD 


R8 , ~KEYBD ? 


0CDA 


E8F7 






JR 


PRODM ; 


0CDC 






% 






0CDC 






% 


HANDLE 


SPECIAL KEY BOARD(8016) 


0CDC 






% 






0CDC 


8D08 




KETCH: 


CLR 


R0 ^PREVIOUS CHARACTER 


0CDE 


2101 


0014 




LD 


PI ,20 ?#ITERATION COUNT 


0CE2 


8D28 




KEYCD: 


CLR 


R2 ;#STROBE PATTERN 


0CE4 


8D98 






CLR 


R9 J^FOUND PATTERN 


0CS6 


3B26 


0FDC 


KEYCA: 


OUT 


KP0 f R2 J^STROBE 


0CEA 


3B34 


0FE0 




IN 


R3,KPI ; 


0CEE 


8D30 






COM 


R3 ? 


0CF0 


0703 


001? 




AND 


R3,M5 J 


0CF4 


A134 






LD 


R4,R3 ; 


0CF6 


0704 


0007 




AND 


R4,M3 ; 


0CFA 


E60B 






JR 


ZR,KEYCB ; 


0CFC 


8D94 






TEST 


R9 ; 


0CFE 


EEF1 






JR 


NZ, KEYCD ^DOUBLE KEY 


0D00 


A129 






LD 


R9,R2 ? 
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0D02 


B339 


FCFB 




SRA 


R3,3 


0D06 


B349 


0003 




SLA 


R4,3 


0D0A 


8549 






OR 


R9,R4 


0D0C 


B399 


0002 




SLA 


R9,2 


0D10 


8539 






OR 


R9,R3 


0D12 


A920 




KEYCB : 


INC 


R2,l 


0B14 


A723 






BIT 


R2,3 


0D16 


E6E7 






JR. 


ZR,KEYCA 


0B18 


8D04 






TEST 


R0 


«T\4 a 


vcnrt 






T-n 


•j-n wavr%r\ 


vuxa. 


EiWC 






*i ll 


t>n t xvrii \j\j 


0B1C 


8B90 






c? 


R0 f R9 


0D1E 


EEBE 






JR 


NZ ? OYCH 


0D20 


A190 




KEYCC: 


LD 


R0 f R9 


0D22 


AB10 






DEC 


El.l 


0D24 


EEDE 






JR 


NZ.KEYCD 


0D26 


9E08 






RET 




0B28 






% 






01)28 






% 


OUT R13 


CHARACTERS FR 


0B28 






% 






0D28 


6702 


400C 


CONOUT: 


BIT 


CTLWD,CNOSW+l 


0D2C 


EE41 






JR 


NZ.CONREM 


0B2E 


DFBB 




CONLP: 


CALR 


NEICH 


0D30 


0B00 


007F 




CP 


R0,DEL 


0D34 


EF0F 






JR 


LGE, CONLF 


01)36 


6700 


400C 




BIT 


CTLWD,CRTSW 


0D3A 


E633 






JR 


ZR,CONCRT 


0D3C 


6102 


406E 




LB 


R2,LEDP 


0B40 


0B00 


0008 




CP 


R0,BSP 


0D44 


E626 






JR 


ZR,CONLE 


0B46 


0B00 


000D 




CP 


R0,CR 


0D4A 


EE07 






JR 


NZ, CONLC 


0D4C 


2102 


0FD3 




LD 


R2.LPT 


01)50 


6F02 


406E 


CONLB: 


LD 


LEDP.R2 


0D54 


ABD0 




CONLF: 


DEC 


R13,l 


01)56 


EEEB 






JR 


NZ, CONLP 


0P58 


9E08 






RET 




0D5A 


0B00 


0020 


CONLC: 


CP 


R0,' ' 


0B5E 


E7F8 






JR 


LLT, CONLB 


0P60 


0B02 


0FD3 




CP 


R2,LPT 


0D64 


EE09 






JR 


NZ,CONLA 


0D66 


2101 


0020 




LD 


Rl , ' ' 



^BOUNCE 



^RE-TRY FOR COINCIDENDE 



^REMOTE CONSOLE 



#RS232 CONSOLE 
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0P6A 


3F21 




0D6C 


AB20 




0D6E 


0B02 


0FBF 


0B72 


EEFB 




0D74 


2102 


0FD3 


0D78 


0B02 


0FBF 


0D7C 


E6E9 




0B7E 


2101 


0040 


0D82 


8701 




0B84 


B319 


FEFF 


0D88 


8D10 




0D8A 


8710 




0B8C 


3F20 




0D8E 


AB20 




0D90 


E8DF 




03)92 


0B02 


0FD3 


0B96 


E6DC 




0B98 


A920 




0D9A 


2100 


0020 


0B9E 


3F20 




0DA0 


E8D7 




0DA2 


3B14 


0FE9 


0DA6 


A710 




0DA8 


E6FC 




0DAA 


3B06 


0FE8 


0DAE 


E8D2 




0BB0 


A1E5 




0BB2 


2103 


000? 


0DB6 


5E08 


0902 


0DBA 






0DBA 






0DBA 






0DBA 


20E8 




0BBC 


A9E0 




0DBE 


8C08 




0BC0 


0B00 


000]) 


0DC4 


9E08 




0BC6 






0DC6 






0DC6 






0DC6 


D007 





CONLD: 



CONLA: 



CONLE: 



CONCRT: 



CONREM: 



% 
% 
% 
NEXCE: 



% 
% 
% 
GETCH: 



OUT 

DEC 

CP 

JR 

LD 

CP 

JR 

LD 

AND 

SRA 

COM 

AND 

OUT 

DEC 

JR 

CP 

JR 

INC 

LD 

OUT 

JR 

IN 

BIT 

JR 

OUT 

JR 

LD 

LD 

JP 



R2~,R1 

R2 t l 

R2,LPT-20 

NZ, CONLD 

R2 , LPT 

R2 , LPT-20 

ZR, CONLB 

Rl ,40H 

R1,R0 

Rl,l 

Rl 

R0.B1 

R2 ,R0 

R2,l 

CONLB 

R2 , LPT 

ZR, CONLB 

R2,l 

R0,' ' 

R2~,R0 

CONLB 

R1,CPT+1 

R1,0 

ZR, CONCRT 

CPT,R0 

CONLF 

R5,R14 

R3,2 

TRNSMT 



FETCH NEXT CHARACTER FROM (R14) TO R0 



LDB 

INC 

CLRB 

CP 

RET 



RL0,R14' 
R14,l 
RH0J 
R0,CR 



FETCH NEXT NON-BLANK CHARACTE FROM (R14) TO R0 
CALR NEXCH ; 



SET CR FLAG 
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0DC8 


9E06 




0DCA 


0B00 


0020 


0DCE 


E6FB 




0DD0 


9E08 




0DD2 






0DD2 






0DD2 






0DD2 






01)1)2 


DFFC 










0DD6 


grypo 




0DD8 


5E08" 


021)8 


0DDC 






0DDC 


8D18 




0DDE 


D00D 




0DE0 






0DE0 


0300 


0030 


0BE4 


9E07 




0DE6 


0B00 


000A 


0DEA 


E708 




0DTIC 


0300 


0007 


0BF0 


0B00 


000A 


0DF4 


9E0? 




0DF6 


0B00 


000F 


0DFA 


9E0B 




0DFC 






0DFC 


A112 




0DFE 


0702 


F000 


0E02 


9E0E 




05104 


B311 


0004 


0E08 


8501 




0E0A 


D023 




0E0C 


9E06 




0E0E 


0B00 


002C 


0E12 


9E06 




0F14 


E8E5 




0E16 






0E16 






0E16 






0E16 


D029 




0E18 


0300 


0030 





RET 


ZR 




CP 


R0,' ' 




JR 


ZR f GETCH 




RET 




% 






% 


FETCH 


16 BIT HEX 


% 






EEX_TST 


* 






'CALR HEX16J 




RET ZRi 




T>np "DO TDIC^* 


• 


jp cmdftr; 


EEX16: 


CLR 


Rl 




CALR 


GETCH 


HX16A: 








SUB 


R0,'0'; 




RET 


ct; 




CP 


R0,10? 




JR 


cy,hxi6b; 




SUB 


R0,7J 




CP 


110,10; 




RET 


CY? 




CP 


K0 f i5; 




RET 


LST? 


HX16B: 








LD 


R2,R1? 




AND 


R2,MU4J 




RET 


nz; 




SLL 


Ri,4; 




OR 


ri,R0; 




CALR 


getch; 




RET 


zr; 




CP 


R0 , ' ♦ ' ; 




RET 


zr; 




JR 


HX16AJ 


% 






% 


FETCH 


OR 1 BIT 


% 






GETBIT: 


CALR 


GETCH 




SUB 


R0/0' 
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0E1C 


9E07 






RET 


CT i 






0E1E 


A101 






LD 


Rl ,R0 S 






0E20 


0300 


0001 




SUB 


R0,1 S 






0E24 


9E0B 






RET 


LGT j 






0E26 


E8CF 






JR 


GETCE ; 






0E28 






% 










0*28 






% 


PUT 4 HEX DIGITS FROM Rl 


TO (R8) *''& /l * r - : 


£\ A I ■'■ *' 


0E28 






% 










0E28 


DFFE 




PUTH4 : 


CALR 


PUTHD S 


■ f</"7 U /-''f'- : '" ' . .£-'"' 




0E2A 


BEEF 






CALR 


PUTHD ; 


.-■' '" " - ?'*■' .' :•■ 


- , 


0E2C 


D000 




PUTEIB : 


CALR 


PUTED S 


y , - ' .. ,- v. »■■,- ,' , 




0E2E 


B305 


0004 


PUTHD: 


SLLL 


RR0 ,4 \ 


! '" C ' ■' "■ . ,i-r- ?&>:>>•' !>•' a. *?..■;', 


-*'" ' ' * 


0E32 


0700 


000F 




AND 


R0 , M4 j 


£ < ' t T Pi<? &>jt fitry £-;:■-..: 


/ " ' - •' j fV't w- 


0E36 


0100 


0030 




ADD 


R0 , '0 ' ; 


Al^kf }f ,K/-f9 /* ,VL//Mf/?'C 


.- ,< ' /?// p-crt/ >f 


0E3A 


0B00 


003A 




CP 


R0,'9'+l j 


f«f :/ I- P >7 $S A • . -■ 




0E3E 


E502 






JR 


MI, PUTCH S 


' N S , f r fr<?£& »T a : '' // 


/ ^ <?' ..■ 


0E40 


0100 


0007 




ADD 


R0,7 j 




■•: . m- 


0E44 






PUTCH: 










0E44 


2E88 






LDB 


R3'\RL0; 


:? T * <£. tf rr-^p- o &S* & ft C ■?"£-- /.. ' 




0E46 


A980 






INC R8, 


i; 


f . f> 


)'<J ir f/x, St* C f r> f\s 


0E48 


9E08 






ret; 






#\--fy-r /- ,v ,-."^-. 


0E4A 






% 






' ' 




0E4A 






% 


PUT CR 


AND LF TO (R8) 






0E4A 






% 










0E4A 


2100 


000D 


CRLF: 


LD 


R0,CR ; 






0E4E 


D006 






CALR 


PUTCH ; 






0E50 


2100 


000A 




LD 


R0,LF ; 






0E54 


E8F7 






JR 


PUTCH ! 






0E56 






% 










0E56 






% 


RESTORE 


I USSR REGISTERS 






0E56 






% 










0E56 


6100 


40A4 


RESTR: 


LD 


R0,U15 \ 






0E5A 


57F0 


40A4 




POP 


U15,R15~ 






0E5E 


5402 


4082 




LDL 


RR2,USFCW 






0E62 


A72E 






BIT 


R2,14 






0E64 


EE09 






JR 


NZ,RESTRB ! 


CENTERING SYSTEM MODE 




0E66 


7B0F 






LDCTL 


NSPOFF,R0 






0E68 


91 E2 




RESTRA: 


PUSHL 


R15~,RR2 , 






0E6A 


93F2 






PUSH 


R15~,R2 






0?6C 


5C01 


000E 4086 




LDM 


R0,U0,15 ! 






0E72 


53E0 


40A4 




PUSH 


R15~,U15 







- , 7 



■ A' <" 



^•- if* 
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0E76 


9E08 






RET 




0E78 


A10F 




RESTRB: 


LD 


R15 T R0 


0E7A 


E8F6 






JR 


RESTRA 


0E7C 






% 






0*7C 






% 


FETCH 


16 BIT DECIMAL 


0E7C 






% 






0E7C 


8D18 




DEC16: 


CLR 


Rl 


0E7E 


D05D 






CALR 


GETCH 


0E80 


0300 


0030 


DEC16A: 


SUB 


R0,'0' 


****** A 








RET 


rttr 

U'l 


0E86 


0B00 


0009 






R0,9 


0E8A 


9E0B 






RET 


LGT 


0E8C 


U02 






LD 


R2,R0 


0E8E 


1900 


000A 




MULT 


RR0 t 10 


0E92 


8121 






ADD 


R1,R2 


0E94 


8D28 






CLR 


R2 


0E96 


B520 






ADC 


R0,R2 


0E98 


9E0E 






RET 


tin 

ML 


0E9A 


D06B 






CALR 


GETCH 


0E9C 


9E06 






RET 


ZR 


0E9E 


0B00 


003D 




CP 


R0,'=' 


0EA2 


9E06 






RET 


ZR 


0EA4 


DF87 






CALR 


COMMA 


0EA6 


9E06 






RET 


ZR 


0EA8 


E8EB 






JR 


DEC16A 


0EAA 






% 






0EAA 






% 


FETCH 


4 BIT DECIMAL 


0EAA 






% 






0EAA 


D018 




BEC4: 


CALR 


DEC16 


0EAC 


A112 






LD 


R2,P1 


0EAE 


0702 


FFF0 




AND 


R2,MU12 


0EB? 


9E08 






RET 




0EB4 






% 






0EB4 






% 


PUT Rj 


. SPACES TO (R8 


0EB4 






% 






0EB4 


2100 


0020 


PUTSP: 


LD 


R0,' ' 


0EB8 


D03B 






CALR 


PUTCH 


0EBA 


AB10 






DEC 


Rl,l 


0EBC 


EEFB 






JR 


NZ, PUTSP 


0EBE 


9E08 






RET 




0FC0 






% 







TO Rl FROM (R14) TO CR, =, OR COMMA 



= , OR COMMA 
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0FC0 






0EC0 






0EC0 






0FC0 


BA21 


0180 


0EC4 


9E08 




0EC6 






0EC6 






0EC6 






0EC6 


2101 


0003 


0ECA 


7602 


0159 


0ECE 


D008 




0ED0 


6101 


4084 


0ED4 


1)057 




0ED6 


9E08 




0ED8 






0ED8 






0ED8 






0ED8 


0B0C 


000 A 


0EDC 


E707 




0EDE 


2100 


0031 


0EE2 


D050 




0EE4 


A1C0 




0EE6 


0100 


0026 


0EEA 


E806 




0EFC 


2100 


0020 


0EF0 


D057 




0EF2 


A1C0 




0EF4 


0100 


0030 


0EF8 


D05B 




0EFA 


2100 


003D 


0EFE 


D05E 




0F00 


21D1 




0F02 


5E08 


0E28 


0F06 






0F06 






0F06 






0F06 


760E 


0153 


0F0A 


6101 


4082 


0F0E 


B319 


0008 


0F12 


2103 


0006 


0F16 


D0AF 





% 

% 
PUTMS ! 



% 
% 
% 
PUTPC: 



% 
% 
% 
PUTRG : 



PUTRA 



PUTRB 



% 
% 
% 
PUTFL 



PUTFA 



PUT Rl CHARACTERS FROM R2 TO (R8) 



LDIRB R8*\R2~ t Ri; 

ret; 

put pc=xxxx to (r8) 

LD Rl,3 

LD R2,~PCMS 

CALR PUTMS 

LD Rl ,USPC 

CALR PUTH4 
RET 



REGISTER IN R13=(R23) TO (R8) 



CP 

JR 

LD 

CALR 

LD 

ADD 

JR 

LD 

CALR 

LD 

ADD 

CALR 

LD 

CALR 

LD 

JP 



R12.10 

CY, PUTRA 

R0,'l' 

PUTCH 

R0,R12 

R0,'0'-10 

PUTRB 

R0,' ' 

PUTCH 

R0,R12 

R0,'0' 

PUTCH 

R0,'=' 

PUTCH 

R1.R13". 

PUTH4 



FLAG REGISTER TO (R8) CZSPDH 



LD 

LD 

SLA 

LD 

CALR 



R14, FCWL 

P1,USFCW 

R1.8 

R3.6 

NEXCH 
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0F18 


D06B 




CALR 


PUTCH 




0F1A 


2100 0018 




LD 


R0/0V2 




0F1E 


B310 




RL 


Rl,l 




0F20 


B500 




ADC 


R0,B0 




0F22 


D070 




CALR 


PUTCH 




0F24 


FB08 




DBJNZ 


RL3,PUTFA; 




0F26 


9E08 




RET 




• 


0F28 




% 








0F28 




% 


FETCH 


FILE NAME AND 


ADDRESS 


0j?'28 




% 








0728 


6305 400C 


LDSVE: 


RES 


CTL¥D,TRMDE 


t 


0F2C 


D1E4 




CALR 


" FNAFS 


■» 

t 


0F2E 


0501 0001 




OR 


Rl,l 


• 
t 


0F32 


9E08 




RET? 






0F34 




LDSV1: 








0F34 


9E07 




RET 


CY 




0F36 


DFD0 




CALR 


COMMA 




0F38 


9E0E 




RET 


NZ 




0F3A 


D0B0 




ALK 


HEX16 




0F3C 


6F01 4080 




LD 


TRINCR1 




0F40 


8B00 




CP 


R0,R0 




0F42 


9E08 




RET 






0F44 




% 








0F44 




% 


SAVE USER REGISTERS 




0F44 




% 








0F44 


5C09 000E 4086 


SAVER: 


LDM 


U0,R0,15 




0F4A 


97F3 




POP 


R3,R15~ 


I iter ?hp£ t*L 


0F4C 


97F2 




POP 


R2,R15~ 


> ID&A/Y , 


0F4E 


95F4 




POPL 


RR4,R15~ 


t f C<£* F= c u/ 


0F50 


5D04 4082 




LDL 


USFCW,RR4 




0F54 


A74E 




BIT 


R4,14 




0F56 


EE04 




JR 


NZ, SAVERA 


J^FROM SYSTEM 


0F58 


7D07 




LDCTL 


R0,NSPOFF 




0F5A 


6F00 40A4 




LD 


U15,R0 




0F5E 


1E38 




JP 


R3~ 




* 0F60 


6F0F 40A4 


SAVERA: 


LD 


U15,R15 




0F64 


760F 40D0 




LD 


R15 f "STACK 




0F68 


1E38 




JP 


R3~ 




0F6A 




% 








0F6A 




% 


DISPLAY PC^XXXX FOR 


BREAKPOINT 


0F6A 




% 









i^j H$.tr/< /& 



ShS 



A ' €> 



^ C 
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0F6A 


7608 


400E 


BRKDIS 


: LD 


R8,~KEYBD 


0F6E 


D055 






oAjjS 


ruifu 


0F70 


7602 


014C 




LD 


R2 f ~NIMS 


0F74 


2101 


0004 




LD 


Rl,4 


0F78 


D05D 






CALR 


PUT MS 


0F7A 


6102 


4084 




LD 


R2,USPC 


0F7E 


2121 






LD 


Rl ,R2~ 


0F80 


D0AD 






CALR 


PUTH4 


0F82 


D09D 






CALR 


CRLF 


0F84 


210D 


0011 




LD 


R13»17 


0F88 


760E 


400E 




LD 


R14,~KEYBD 


0F8C 


D133 






CALR 


CONOUT 


0F8E 


9E08 






RET 




0F90 






% 






0F90 






% 






0F90 






% 






0F90 






% 






0F90 






PESET_ 


RECVE SWITCH: 


0F90 


^4D05 


4000 0E44 




LDA 


chdest,putch; 


0F96 l 


^ 9??08v_ 




T>Ti"n • 




It JHi 1 J 




0F98 




£t;zf 


% 






0F98 






COMMA: 






0F98 


0B00 


002C 




CP 


R0 / . ' ? 


0F9C 


9E08 






RET? 




0F9E 






% 






0F9E 






% 






0F9E 






% 


FILE 


FORMAT CONTROL BYTE 


0F9E 






% 






0F9E 






CONST 






0F9E 








SET USER PC =1, 


0F9E 








SET DEST ADR = 2, 


0F9E 








SET TEXT" = 3J 


0F9E 






% 






0F9E 






NEXTJtECORD: 




0F9E 


DFD8 






CALR 


nxtjbyte; 


0FA0 






READ_BIN: 




0FA0 


0A08 


0101 




CPB 


RL0,SET USER PC; 


0FA4 


EE07 






JR 


NE,RD BINi; 


0FA6 


DFDC 






CALR 


NXT byte; 


0FA8 


6E08 


4084 




LDB 


USPCRL0; 


0FAC 


DFDF 






CALR 


NXT byte; 



% RESET CO-ROUTINE SWITCH 

T& /iaMI LA 
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0FAE 
0FB2 
0FB4 
0FB4 
0FB8 
0FBA 
0FBC 
0FC0 
0FC2 

nvnc 

0FC8 

0?es 

0FCC 
0FCE 
0FD0 
0FD4 
0FD4 
0FD6 
0FDA 
0FDC 
0FE0 
0FE4 
0FE6 
0FE8 
0FE8 
0FEE 
0FF0 
0FF0 
0FF0 
0FF4 
0FF4 
0FF6 
0FF6 
0FF6 
0FFE 
1000 
1000 
1000 
4000 
4000 
4002 



6E08 4085 
E8F5 

0A08 0202 
EE07 
DFE6 

6E08 4004 
DFE9 
6E08 4005 



0A08 0303 
EE0D 
DFF0 
6E08 4002 

DFF3 

6102 4004 
2E28 

6900 4004 
6A00 4002 
EEF? 
E8DB 

4D05 4000 0FF4 
9E08 



57F0 4000 
9E08 



fit r *- 

A*BT~ 



RD BIN1: 



LDB 
JR 

CPB 

JR 

CALR 

LDB 

CALR 

LDB 



RD BIN2 



RD BIN3: 



RD BIN4: 



CPB 
JR 

CALR 
LDB 

CALR 

LD 

LDB 

INC 

DECB 

JR 

JR 

LDA 
RET? 



% 

NXT BYTE: 

POP 

do_noteing: 
ret; 

% 
% 



USPC(1),RL0; 

nextj*ecord? 
rl0,set_destjidr; 

NE,RD_BIN2; 

nit btte; 

DEST_ADR t RL0; 

nxtjbyte; 
dest_adr(1),rl0; 

iimTm tj-c«n/\T»T\« 

rl0,set_text; 

NE,RD_BIN4; 
NXTJBYTE? 
COUNT, RL0J 

NXT byte; 
r2.dest_adr; 

R2 ,RL0J 

dest_adr,i; 
COUNT, i; 

nz,rd bin3j 
next_record; 

chdest, do-nothing; 



CHDEST,R15' 



r f 6 C.& I O 
kf* CTO 1>C 

'^ AZ££ 



M M U{ 






*c&. 



% 

% 



ORIGI 
WORD: 



N $(256 - 2 
PROM ID; 



- low $); 



ORIGIN DATA 



STATE: 

CHDEST: WORD 
COUNT: WORD 



(i); 
(i); 



% CO-ROUTINE ENTRY POINT 
% # BYTES TO BE TRANS FERED 
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4004 

4006 

400C 

400E 

4060 

406E 

4070- 

407C 

407E 

4080 

4082 

4084 

4086 

4088 

408A 

408C 

408E 

4090 

4092 

4094 

4096 

4098 

409A 

409C 

409E 

40A0 

40A2 

40A4 

40A6 

40BA 

40BA 

40D0 

40D0 





DEST ADR: WORD 




OLD STATE; WORD 




CTLWD: 


WORD 




KEYBD: 


WORD 




FILNM: 


WORD 




LEDP : 


WORD 


7& 


BRKTO: 


WORD 


77 


TRCNT: 


WORD 


"7 <L 


TRDIS: 


WORD 




TRINC: 


WORD 




USFCW: 


WORD 


'<4 


US PC: 


WORD 


7/ 4 


U0: 


WORD 


%/C: 


Ul: 


WORD 


""7 


U2: 


WORD 




U3: 


WORD 




U4: 


WORD 




U5: 


WORD 




U6: 


WORD 




U7: 


WORD 




U8: 


WORD 




U9: 


WORD 




U10: 


WORD 




Ull: 


WORD 




U12: 


WORD 




U13: 


WORD 




U14: 


WORD 




U15: 


WORD 
WORD 




USRSTK: 


WORD 
WORD 




STACK: 


WORD 
END. 



1 

3 
1 
41) 

7) 
1 
6 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
10) 

11) 
(0 



% DESTINATION ADDRESS 
% CO-ROUTINE RECOVERY INFO 
^CONSOLE I/O SWITCH CONTROL 
^KEYBOARD BUFFER 
^SYSTEM 8/8 FILE NAME 
%LED CURRENT DISPLAY PORT 
^BREAKPOINT TABLE 
#TRACE INSTRUCTION COUNT 
#TRACE DISPLAY INTERVAL 
#TRACE DISPLAY COUNT 
%USER FLAG CONTROL WORD 
#USER PROGRAM COUNTER 
#USER REGISTER SAVE AREA 



%USER STACK AREA 
^SYSTEM STACK 



M 
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